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introduzione 


Questo libro è nato con la convinzione che fosse ormai venuto il tem¬ 
po di proporre per il Commodore 64 una raccolta di programmi abba¬ 
stanza completa o quantomeno tale da coprire le più diverse esigenze. 
Come vedrete, infatti, ce n'è per tutti i gusti: giochi di abilità per colo¬ 
ro che sanno correre sulla tastiera e destreggiarsi con i tasti funzione 
alla velocità del fulmine, giochi tattici per i più cervellotici, giochi 
d'ambientazione e, per gli amanti dei video game tradizionali, tutti i 
giochi più comuni, da quelli per intrattenere gli ospiti a quelli fatti ap¬ 
posta per saggiare la vostra abilità. 

Se avrete pazienza e se starete abbastanza attenti durante la battitura, 
al costo di una cassetta, potrete disporre di quasi 60 programmi am¬ 
piamente collaudati e quindi assolutamente affidabili. 

Prima di lasciarvi al delicato compito delia copiatura dei programmi, ci 
sembra giusto darvi qualche informazione e qualche consiglio in più. I 
programmi sono listati a una larghezza di 40 colonne, lo stesso nume¬ 
ro di colonne dello schermo del Commodore 64, però il numero di li¬ 
nea è scostato dal margine e non è allineato con la prima colonna, co¬ 
me avviene con i listati sullo schermo del Commodore. Questo per dif¬ 
ferenziare in modo più chiaro i numeri di linea. Nel proporre i pro¬ 
grammi, abbiamo fatto ogni sforzo per rendere il più possibile leggibi¬ 
li i caratteri grafici. Questo non ha però impedito che alcuni di essi ri¬ 
sultassero difficili da distinguere e questo ci ha indotto ad adottare il 
tipo di riproduzione che vedete qui di seguito: a © K 


Per concludere, vogliamo ringraziare tutti coloro che ci hanno aiutato 
a controllare e provare i programmi: senza la loro collaborazione que¬ 
sto libro non sarebbe mai stato realizzato. 

E adesso tocca a voi. Una rapida scorsa al libro vi farà immediatamen¬ 
te capire che la Terra ha un’orda di nemici temibili, provenienti sia 
dallo spazio che dai meandri più oscuri della mente umana, e, come 
sempre, l'unica arma di salvezza è nelle vostre mani. Perciò, dita sulla 
tastiera e ... tornate vincitori! 



Non solo calcio 


i 


Vi hanno convinto e così avete accettato l’incarico di presidente in 
una squadra di calcio di serie A. Ora tocca a voi fare in modo che la 
squadra funzioni come si deve nel difficile mondo del calcio. Che lo 
vogliate o no, le possibilità di successo per la prossima stagione dipen¬ 
dono strettamente dal modo in cui saprete gestire le finanze, compra¬ 
re o vendere calciatori e, naturalmente, dalla posizione raggiunta dalla 
squadra alla fine dell'ultima stagione. Attenti! Non è un gioco per i de¬ 
boli di cuore. 

Se i vostri calciatori non si rivelano al livello delle aspettative, spetta a 
voi decidere di metterli sul mercato. Se le decisioni prese sono state 
giuste, ne vedrete i risultati nel corso degli incontri che si svolgeranno 
durante la stagione. Il punteggio prevede l'assegnazione di 3 punti per 
ogni partita vinta. 


10 REM ****************************** 

11 REM * * 

12 REM * SOCCER SUPREMO * 

13 REM * * 

14 REM * CONVERTED ONTO CBM-64 * 

15 REM * BY DAVE PONTING * 

16 REM * £9-8-83 * 

17 REM * * 

18 REM ****************************** 

£0 GOSUB1O000 

30 G=0: I=0:L=0:O=0:P=0: U)=0 

70 AT$ = '" ■ ptm 

<CURSOR HOME> + £5*<CURS0R DOWN> 

80 REM E$=" - 


90 S$=" 


100 E*="aa 

Hi" 

1 £0 K. = 100000 
160 GOTO4£00 

£00 REM ***** GAME COMMENTARY ***** 

201 PR INT ,, l jr , E$: PR INT n a" : FORX = 1 TO 1 6 : PR IN 
TTABC. 19 > " | '• : NEXTX : PR I NT " a"E$ 




2 Non solo calcio 


220 PRINT-PLEASE SELECT PLAYING format:- 

II 

E£2 PRINT-1) 4-3-3<FLEXIBLE> £> 4-£-4 < 

ATTACK) o _ _ , 

224 PRINT"3) 4 - 4 - 2 <DEFENSIVE) 4) 2 3 5 < 

CLASSICAL) 

270 X$="":GETX$:IFX$="“THEN270 
275 D=ASCCX$)-43:IFD<0ORD>3THEN270 
300 PRINTLEFT$<AT$,£1)S$S*S$ 

305 PRINTLEFT*<AT*,21)"SELECT 1) LEFT WI 

NG " f 

306 PRINT"2 > RIGHT W1NG 0R 3) 

CENTRE FIELD ATTACK" 

307 Y$="":GETY$: IF Y$ =""THEN307 

310 IFftSC<Y*X49ÓRASC(.Y*>>31THEN307 

315 E=2*<'ASC<Y$)-48>-2 

330 PRINTLEFT*(AT*,21)S*S$S$ 

332 PR 1 NTLEFT*<AT$,21>" CALL (H)HEADS 

OR (T)TAILS " 

335 X$="" ! GETX*:IFX*<>"H"ANDX*<>"T"THEN3 
35 

350 REM 

395 A = J: IFINTCRND <1)*10)< 6 THENA = Q 
410 F =10-£0*SGN(ABS(A-R>> 

420 D =D*2 

430 IFD< > 2 THEND = 4 

450 PRINTMID$<M$<A),9>" TO KICK OFF" 

470 y$="01”+CHR^ < 48 + INT < RND <1)*2)) + "000" 

+CHR$<43+A)+CHR$<48+E) 

471 IFGOWTHEN Y$ = "00 " +CHR*<48 + INT<RNO < 1 
) *2)) + "000"+CHR$<48 +A)+CHR$<48 +E) 

476 GOTO840 
480 E-9 

500 PRINTTAB<10+F)"BKICK OFF" 

510 B=Q+J“A 

520 X=5*<ASC(MID$<V$,(A-l)*12+E))-64) 

540 y*=CHR*<ASC <Y$)+1)+M1D*CY*,2) 

54 1 Y$ = LEFT$<Y$,5)+CHR$(ASC <MID$<Y$, 6 ) ) + 
1)+MID$(Y$,7) 

542 KY$ ="":GETKYSs IFKY3K >""THEN5400 

543 IFASC <MID$<Y$,6))=780RASC <MID*<Y$, 6 ) 
)>107THEN920 

545 N=INTCRND<1)* 8 )+1 
547 FORC=ITO 100 :NEXTC 


Non solo calcio 3 


550 C =N+E +D 

560 IFE=10RASC<Y$X 50THEN570 

565 IFC<EOR <C >16ANDASC <MIO$<Y$,3))=49)TH 

EN650 

570 IFC <1THENC =1 

575 IFE>3ANDASC(Y$)>51ANDRND <1> >.75THEN7 
30 

580 IFN>6THENC=N+ASC<MID$<Y*,8>>-49 

581 IFC >11THENC = 11-INT <RND <1> *4 ) 

582 IFC=EANDASC (. Y$> <50THEN545 
533 I FC =ETHEN680 

585 PRINTTAB<10+F)"3"E"PASSES TO "C 
590 IFASC<Y$X50OR< <X>50ORRND< 1 >< . 7 ) ANDR 
MD< IX . 9 )THEN6 1 0 
595 E = 12 - I NT < ( C + E ) /2 ) 

536 IFE <5THENE =E +1NT(RND <1)*3) 

600 PRINTJAB(10-F)"31NTERCEPTED BY "E 
603 Y$=' , r , +MID*(Y$ / 2) 

605 GOTO710 
SIO E =C 
320 GOTO520 
650 IFE =1THEN6S0 

655 PRINTTAB<10+F>"Ì"E"TACKLED BY "13-E 
657 FORY=1TO50:NEXTY 

660 Y = 5* <ASC <MID$<V$,<<B-1)*12+<1£-£>>>> 
-64 ) 

670 IFYX2.5 + (. ASC < MI D$ < Y$, 2 > > - 49 ) *SGN<F ) 

)*XORRND < 1> >.65THEN700 

680 PRINTTAB<10+F)"H"E"RETAINS BALL " 

690 GOTO540 
700 E =13-E 

705 PRINTTAB<10-F)"B"E"GAINS THE BALL" 
710 F = -F 

712 FORY=1TO90:NEXTY 
715 A =B 
720 GOTO510 

730 PRINTTAB(10+F)"^"E"** SHOOTS **" 

740 FGRY=1TO250:NEXTY 

745 IFRND < 1 ) > .950RRND(1>*5+SGN(F)* <ASC <M 

ID$( Y$,2> )-49) >3.5THEN300 

750 Y=5*<ASC<MID$<V$,<(B-1)*12+1))>-64> 

760 IFY *RNO( 1 )>8THEN800 

765 IFRND<1>>.6THEN780 

770 PRINTTAB<10-F ) “H ** SAVED **" 


4 Non solo calcio 


77E FORE = 1 TO20 ’• NEXTE 
773 Y$=“0"+MID*(Y*,2) 

775 E =1 
777 GOTO710 

780 PRINTTAB<10+F)" ** CORNER **" 

782 FORX=1T07!NEXTX 
785 FORE=1TO250:NEXTE 
790 E=5+INT(RND(1) *7 ) 

785 PRINTTAB<10+F)" TAKEN BY "E 

787 Y$="0”+MID*<Y*,2) 

788 GOTO540 

800 PRINTTAB<10+F)"a"E"a SCORES GOAL " 
810 PRINT: PRINTES 
8 15 FORE=ITO 10 :NEXTE 
820 E=4+SGN(ABSCA-H)) 

830 Y$=LEFT$(Y$,E-1)+CHR$<ASC<MID$<Y$,E) 

)+1)+MID$<Y$,E+1) 

835 F = -F 

836 A =B 

837 Y$="0"+MID$<Y*,2) 

840 PRINT"S SCORE" 

8S0 PR 1 NT:PRINTMID$<M$<H),9)" "ASC(MID$< 
Y$,4))-48; 

870 PRINTTABt19)MID*<M*<R>,9)“ "ASCCMIDS 
CY$,5))-4S 
880 PRINTE* 

910 GOTO430 

920 XS="H A L F TIME" 

925 IFASC<MID$<Y$,6))>107THENX$=" F U L 
L TIME" 

930 PRINTE$:PRINTTAB<12)"H"X$ 

935 FORY=ITO 1000 :NEXTY 
840 PRINTE* 

955 YS="0"+MIDS(Y*,2) 

960 IFASC<MID*CY*,6>)>107THEN970 

966 Y=J+Q+48-ASC(MID*(Y*,7)) 

967 IFA<>YTHENF=-F 

968 A=Y 

969 30703*40 

9~0 PRIKT'F I N A L SCORE" 

Z.-Z = = in'-^icscmSCH ) ,9 ) " "ASC <MID*<Y$,4 ) ) 

-A3 ; 

3-3 PRINTTAB<19)MID*<M$<R),9)" " 

YS,5))-48 


ASC CYIC* 


Non solo calcio 5 


975 FORX= 1 TO200:NEXT 
930 G0TO5535 

1000 REM ***** MAIN MENU (DIARY) ****** 

1002 PRINT"J" ; 

1003 FORX=1T04 

1007 H=VAL<MID$<F*,<W- 1 >*8+2*X- 1 , 1 )> 

10 10 R=VAL<MID*CF$, CUI- 1 ) *8+2*X , 1 ) ) 

1012 IFH=QORR=QTHEN1016 
10 14 NE X TX 

1016 J=H 

1013 IFH=QTHENJ=R 
1020 T = 0 

1022 U =0 

1024 FORX= 1 TO 12 

1026 T = T +50000* <ASC <RIGHT$<V$,<Q- 1 )* 12 +x 

> >- 64 ) 

1028 U= U+50000*<ASC<RIGHT$CVS,<J-1)*12+X 

> ) -64 > 

1030 NEXTX 

1032 1FS > 6 THENS =6 

1035 IFO=0ORP >.9THEN1050 

1040 PR INT''aHBW«!WKMffWffWDVERDRAFT CALLED 
IN BY THE BANK" 

1043 K =K-<INT(O*.06 ) ) 

1046 0=0:FORTT =1TO3000:NEXTTT 

1047 PR INT"LM" ; 

1050 IF(K< 0*-1 OR (ASC<LEFT$< MS <Q),1))=8 
ANDbl >4 ) ) AND LOUJ THEN6500 
1082 X$= "AUIAY " 

1035 IFH=QTHENX$="HOME" 

1087 POKE53280,6 :P0KE532S1,6 
1690 PRINTTAB< 8 )"3ZLUB: "MID$(MS(Q > ,9 ) 

1092 PRINTTABC 8 )"aUSUPREMOS DESK DIARY": 
PRINT-S DAY "STAB<30) "UJEEK "UJ: PRINTER 

1094 PRINT"£g| 1. CLUB ACCOUNTS " : PR INT"H 
2. LEAGUE TABLE" 

1095 PRINT"H 3. UIEEKLY LEAGUE FIXTURES" 
1098 PRINT"M 4. UJEEK "UJ"BUS INESS MATTERS 
" SPRINT"H 5. ANALYSE UJEEK "UJ 

1098 PRINT"gj OPPONENTS:-"MIDS(M^<J >,9 

)" <")" 

1099 PRINT"H PLUS:- PLAYER TRANSFER M 
ARKET" 

1100 PRINT"H fl*** PRESS CHOSEN KEYCOD 
E ***■" 



Non solo calcio 


1105 IFS>=6THENPRINTTAB<10)"H*** MATCH D 
AY ***":PRINTTAE:<1E>“flPRESS ANY KEY" ; 

1 1 10 X$="":GETX$: IFX*=""THEN11 10 
1 120 IFS>=6THENPOKE53230,4:R0KE532S1 /5:p 
RINT"iJi"r : GOTO200 
1 130 IFX$<"1 "ORX$>"5"THEN1 1 10 
1 135 P0KE5328 1 ,£: PR INT " J" ; 

1140 ONVAL<X$ >GOTO 1200,14 00,1600,1300,20 
00 

1200 REM******* CLUB ACCQUNTS ******* 

12 10 PRINT" J" SPRINT'■ CLUB ACCOUNTS: 

UJEEK "UIsPR INTE$; S$; S$: PR INT" BANK BALAN 
CE ";TAB <20 > "£ "K 

1220 PRINT" FERMITTED OVERDRAF7 £"0:pRIN 
T : PR I NTE$ s PR I NT '' TEAM VALUE: £"T 

1230 PR INT"SÙ9 PRESS flO« TO DISCUSS OVERD 
RAFT OR 

1235 PR INT " SI RETURN» TO RETURN TO DIAR 
Y" 

1240 X$ ="":GETX$: IFX$< >""THEN1240 
1250 GETX$:IFX$ =""THEN1250 
1260 IFX$< >"0"ANDX$< >"O"THEN1000 
1270 PR INT " EMPI ENTER 1 TO 4 < £ 00,000. 

00 ) 

1280 INPUTX$:IFASC<X$><43 OR ASC<X$)>5£T 

HEN1230 

1230 X = 100000 *VAL(X$ > 

1300 IFRND C1 )<.350RX*0 >400000THENGOTO135 

0 


1310 0=0 +X 


1320 P =INT < RND ( 1>*3>+£ 


1330 
FQR 
1340 
1350 
1360 
1370 
1330 
1400 
14 10 
1: PR1NTE$ 


'dS £ ";X" EXTENDED 


REFUSED ******" 


PR I NT 11 CU" S$; S$; " 

P"WEEKS" 

GOTO 1360 

PRINT"^ ****** 

3 =S + 1 

FORX=1TO3000:NEXTX 
GOTO 1000 

pr'inttad* LEP)G ue TABLE ***** 

NTE$ <5),, SUPER LEAGUE - LJEEK "W 


D L PR FR T ^Q B p®® 5 "GOftLS ■ : PR INTTfìB < 1 9 ) "Ul 
M3B PORX= 1T08 


Non solo calcio 7 


1*50 ™fl8C<S<Y> >< >XTHEN1360 

,460 „=flSC<MID*<M*(V ) ,3)>-65 

j 470 B=ASC<MID*<M*<Y>,4>) 65 

1430 C=ASC<MID*<M*<Y>,5)> 65 

1485 D=ASC<MID*<M*<Y),6)>-65 
1490 E=ASC<MID*<M$<Y>,7)>-65 
1435 F=ASC<MID*<M*<Y>,8>>-65 

1500 PRINTMID^(M$<Y>,9>; 

1510 PRINTTAB<20-LEN<STR$<A>))A;TAB 

en<str*<b>>>b; 

1520 PRINTTAB<26-LEN<STR$<C))>C;TAB<30-L 

EN<STR*<D>)>D; 

1530 PRINTTAB<33-LEN<STR3K E)>)E;TAB CoB 
EN<STR$(F>)>F 
1560 NEXTY,X 

1585 PR INT"HHSHSKI PRESS iFETURNB TO RE TU 
RN TO DIARY"; 

1530 INPUTX* 

1595 IFW=15THEN6500 
1537 GOTO 1000 

1600 REM ****** LEAGUE FIXTURES ****** 

1610 Y=W 

1630 PRINT"J"; 

1640 PRINT" LEAGUE FIXTURES FOR WEEK " 
Y:PRINT:PRINT 
1650 FORX = 1 T04 

1655 F 1 =8*<Y-1)+X*2-1 :H = VAL(MIDS(F$,F1 , 1 


) > 

165S F2=8*<Y-1> + X *2: R=VAL <MID$<F$,F2, 1 > ) 
1659 PR INT"S"MID*':M4><H > ,3 )TAB < 15 ) " V "TA 
B<£0>MID$<M$<R),9> 

1675 NEXTX 

1680 PRINT " MCTfl gENTER ANOTHER WEEK NUMBER 
(1 TO 14) OR" 

1682 PR INT "H PRESS RETURN* TO RETURN TO 
DIARY" 

1685 X$=" " : INPLITX*: IFX*=" "THEN1000 
1690 Y=INT<VAL(X$)) 

1632 IFY<1ORY>14THEN1635 
1695 GOTO 1630 

1800 REM ****** ACTION FILE ****** 

1305 PRINT" ACTION FILE - WEEK "WlPRINT 
"H"E$ M H" 1INI 


8 Non solo calcio 


1807 PRINT" 1. SPONSOR / ADVERTISER" 

1808 PRINT"H 2. TRAVEL / TICKET SALES / 
SUPP0RTER3" 

1308 PRINT"H 3. TRAINING / PRESS RELATIO 
NS":PRINT"S 4. GROUND IMF’RO VEMENT" 

1315 PRINT"H 5. ESCAPE FOR GOLF AND LEAV 
E IT ALL TO" 

1817 PRINT" BEN AND JO, YOUR ASSIST 

ANT AND SECRETARY" 

1820 PRINTER 

1830 PRINT" *** SELECT ACTIVITY ** 

1340 GETX$:IFX$<>""THEN1840 
1845 GETX$sIFX$= M “THEN1845 
1350 IFX$<"1"ORX$ >"5"THEN1840 
1855 X=ASC(X$)-48 
1857 N=INT(RND(1)*4) + 1 

1860 ONXGOTO1865,1880,1880,1800,1810JGOT 
0 1340 

1865 IFFL =1ANDN=1THEN1857 

1866 X(1) = 100000 :X$<1) = "YOU MADE IT. . 1 Y 
EAR SPONSORSHIP DEAL" :FL=1 

1367 X(2) = 10000 :X$<2) = "SINGLE GAME SPONS 
0RSH1P” 

1368 X<3)=40000 :X$(3) = "PITCH ADVERTISEME 
NT RENTED FOR" 

1368 X(4) = -15000 :X$<4> = "ADVERTISER CANCE 
LLED CONTRACT" 

1875 GOTO 1887 

1880 X( 1 ) = 100000!X$<1) = “TRAVEL AGENT GIV 
ES YOU REBATE" 

1382 X<2) = 100000 :X$<2) = "SUPPORTERS CLUB 
GIVES YOU DONATION" 

1384 X<3) = -40000 :X$<3) = "JO (SEC) LOSES 4 
00 SEASON TICKETS" 

1886 X(4) = -40000 !X$<4) = "BEN (ASS.) FIXED 
A BAD FOREIGN TOUR DEAL" 

1387 PRINT”gj"X$< N ):PRINTTAB(18)"£"X(N):K 
=K+X(N) 

1388 GOTO 18 10 

1880 G=W:PRINTTAB(8)"TEAM MORALE IS HIGH 

M 

1335 PRINTTAB <8)" H<GOOD PRESS COVERAGE)" 
: GOTO 1910 


Non solo calcio 9 


1900 I = I + 1 :K=K-100000 :PRINT" STAND CAPAC 
ITY UP BY 10,000 SEATS":PRINT" COST £100 
,000" 

1910 FORX =1TO3000:NEXTX: S=S+2: GOTO 1000 
2000 REM ***** TEAM DETAILS NEXT GAME ** 
**** 

20 10 PR I NT " iJ" ; 

2070 X=14*SGN(ABS(H-Q )) 

2080 PR INTTAB < 5 ) " HOME TEAM "TAB <25 > M AUiAY 
TEAM":PRINT 

2085 PRINTMID$<M$<H:> ,9)TAB<23)MID$<M*(R) 
,9):PRINTTAB < X > "MANAGER : SUPREMO" 

2090 PRINTE*:PRINTTAB<5)"£ ,000 "TAB (25" 
£ ,000“ 

2096 F =0 :C=0 

2100 FORX=ITO 12 

2105 IFX<10THENPRINT" "; 

2110 Y=50*(ASC<MID*<V*,< < H - 1 > * 12+X > >)-64 

> 

2115 D=50* <ASC <MID*<V*,<(R-1>*12+X>>>-64 

) 

2117 F=F+Y/1000SC=C+D/1000 

2120 PRINTX" > "TAB < 1 1 -LEN<STR*< Y) ) ) YTAB (. 3 

1-LEN<STR*<D> >)D 

2125 FORY =1T07 

2126 E=ASC<MID$<B$<Y>,2)>-64 

2127 IFE<>XTHEN2150 

2130 D^ASC<MID*<Bi*<Y) , 1 > >-64 
2135 IFD < >HANDD < >RTHEN2150 
2140 PRINTLEFT$<AT$,E+7>SPC<15+17*SGN(AB 
S<H-D>> >MID*<B$<Y>,3) 

2150 NEXTY 
2200 NEXTX 

2300 PRINT"TOTAL "F" M."TAB<16>"TOTAL "C 
"M."SPRINTER 

2310 PRINT"ENTER NUMBER OF PLAYER TO SUA 
P " 

2320 PRINT" OR «RETURNB TO RETURN 

TO DIARY"; 

2340 X$="":INPUTX^sIFX*=""THEN1000 

2350 IFS>=60RVAL<X$><10RVAL<X$>>11THEN10 

00 

2357 X=VAL<X$> 

2360 N=INT(RND< 1 > *7 > + 1 


10 Non solo calcio 


2370 IFN=QTHEN2360 
2372 A = <N-1)*12+X 

2374 B = < Q - 1) * 12 + X 

2375 D=75*<ASC(MID4KV*,A>>-64) 

2377 E =D-< D/15)* INT < RND <1)*5) 

2378 S=S+1 

2380 PR INT"CH3"SSS$S$ ,, CrnA NO . "X " IS OFF 
ERED AT £"D 

2381 Y$ ="":INPUT" YOUR OFFER < OR RETURN 
> ";Y$:IFY$ =""THEN2000 

2395 IFVAL<Y$>>=ETHEN2420 

2405 PRINT"□ MSORRYB ~ YOUR OFFER I 

S TOO LOWB" 

2410 FORXX=ITO 1000 :NEXTXX 
2415 GOTO2380 

2420 PR INT "daj a* * * ACCEPTED - THANK 

YOU ***M" 

2425 C= 1000 * <50* <ASC <MID$<V$,B >)-64)-VAL 

CY*)) 

243e K=K*C 

££ = 2 -*=MIO*<V*,A,1>:XX*=MID*<V*,B,1) 

v*=LEFT*<VS,<A-1))♦XX*+MID*<V*,< A + 1 

££->5 . * = ^EFT* A * , <B - 1 ) ) +X*+MID*<VS, <B + 1 > 

) 

2480 FORY =1T07 

2485 IF<ASC<MID$<B$<Y>,1>>=Q+64 OR ASC<M 
ID*(B$<Y),1))=N+64)THEN2487 

2486 GOTO2490 

2487 IFASC<MID$<B*<Y>,2))=X+64THENB*<Y)= 
CHR*<Q+N+123-<ASC<B*<Y))>)+MID$<B$<Y),2) 
2490 NEXTY 

2495 S =S +2 ! FORXX = 1TO 1000 ’• NEXTXX 
2500 GOTO2000 

4200 REM ***** INITIALI2ATION ***** 

4210 B$<1>="BASHILTON":B*<2>="AFWHELAN ■ 
:B<(3)="DGK.EEGAN ":B*<4)="GEFRANCIS" 

4220 B$<5 ) = "CJREG IS " : B *<6 ) = "EGL1ILK INS " 
:B$<7 > ="HHHODDLE" 

4290 V* ="DADADTBDCABATBDDCBABACDABCBBADC 
ACTBADABACBTADDBADDACBDTCSCBADAABBCBBDA" 
4295 V*=V$+"BADBAATABCADDABABCAABTBCBA": 
REM TYPE V$ & F$ EXACTLY 

4300 F$="1234567831427586142358675162738 
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41625334753647182182736452143658713245“ 
4350 FS=FS+"7683241768515263748526174831 
72835465463728 1 " 

4400 MS( 1 ) = " AAAAAAA LIVERPOOL" 

44 10 MS( 2 > = " AAAAAAA NOTTINGHAM" 

4420 MS<3 > = " AAAAAAA WEST BROMWICH" 

4430 MS< 4 ) = " AAAAAAA SOUTHAMPTON" 

4440 MS<5) = " AAAAAAA MANCHESTER U." 

4450 MS< 6 ) = " AAAAAAA LEEDS" 

4460 MS < 7 ) = " AAAAAAA MANCHESTER C." 

4470 MS( 8 ) = " AAAAAAA TOTTENHAM" 

4480 FORX =1T08 

4490 IFW< 2THENMS(X)=CHRS<X)+MIDS< MS( X ),2 

> 

4495 NEXTX:POKE53280,6:POKE53281 ,6 
4630 PRINT"J"; 

4700 PRINT"« SOCCER S U P R E 

M 0":PRINT 

4710 PRINT" INITIAL IZATIO 

N":PRINTES 

4715 PRINTTABC12)“«SUPER LEAGUE":PRINT 

4720 PRINTTAB<2)"OSTAR PLAYERS"TAB<25)"O 

TEAMS":PRINTES:PRINT 

4740 A =0 

4750 FORX=1T07 

4760 PRINT"0"CHRS(X+64)") "MIDS<BS<X),3 

); 

4770 PR INTTAB (20 ) "Bl"CHRS<:X+A+79 ) “ ) "MIDS 
< MS < X+A),8) 

4775 IFX=1THENPRINTTAB<9)"OGOALKEEPERO Q 
) "MIDS<MS<2>,9) 

4780 IFX=1THENA=1 
4790 NEXT 

4800 PRINT"«M IF YOU WISH TO CHANGE A ST 
AR PLAYER OR TEAM PRESS APPROPRIATE"; 
4805 PRINT" LETTER AND ENTER NEW 

NAME " 

4807 PR INT"« PRESS RETURN» IF LIST I 
S O.K . " 

4810 REM*******»***—— BEEP ***** 

4820 GETAS:IFAS<>""THEN4820 
4825 GETAS:IFAS=""THEN4825 
4827 IFAS=CHRS<13)THEN4900 
4840 IFAS<"A"ORAS>"W"THEN4820 
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4350 REM*****BEEP***** 

4852 A=0 

4855 IFA$> ,, G"THENA=1 

4860 PRINT" JENTER NEW NAME <"A*")■" ; * INP 
UTY* 

4870 IFY* =""THEN4680 

4880 X=ASC<A*>«IFA*0THENB*<X-64>*LEFT$<B 
*<X-64),2)+ Y* 

4885 IFA=lTHENM*<X-73>=L£FT*<M*<X-73>,9> 

+Y* 

4890 GOTO4680 

4900 PRINTLEFT*<AT*,20 >S*;S$; S*; S$; 

4910 PRINTLEFT$(AT$,20)" SUPREMO, M :PRINT 
" THESE CLUBS WANT YOU AS MANAGER" 
4915 PRINT“ a PRESS LETTER OF YOUR CHOS 
EN CLUB ■" 

4920 GETA$:IFA*<>""THEN4920 

4925 GETAS:IFAS="“THEN4925 

4930 IFA$< "P "ORA$> "WTHEN4920 

4990 Q=ASC<A*)-79:S=1:M=0:W=1 : GOTO 1000 

5400 REM *** EhCI OF GAME *** 

5415 YY*=LEFT$(Y*,3>+CHR*<ASC<MID*<Y*,4> 

) + INT (RND < 1 ) *3 > > 

5420 Y*=YY$+CHR*<ASC <MID$<Y*,5)) + INT<RND 
(1> *3 > >+MID*(Y*,6) 

5530 REM *** Et'O OF NORMAL GAME *** 

5535 P0KE5328 1 ,3 ! PR INT"kJi" ? 

5537 X$="":D=0 

5540 A =INT<<<RND(1)+0.3)*(T+U>/120)+2500 
*(13-ASC(M$(H>>-ASC(M$(R>>)) 

5542 IFA>50000+1 * 10000THEND=A-<50000+I * 1 
0000 ) 

5545 IFD>0THENX$=" CAPICITY “ 

5547 B =INT ( < 1 . 1+I+RND< 1 > > * < A-D > * < 1+SGN(A 
BS<R-Q> > >/2> 

5548 C =9700 +INT<(9-ASC<M*(Q>>) *2800> 

5550 PRINT" CLUB: "MID*<M$<Q ),9) :PRINT" 

Si MATCH ATTENDANCE: " (A-D)X* 

5555 PRINT" ( ESTIMATED LOCK-OUT ="D" >“ 

5557 PRINT"H GATE SHARE"TAB<30) M £"TAB(3 
3-LEN(STR*(B > > >B 

5560 PRINT" RUNNING COSTS WEEK "W;TAB<3 
0>"£"TAB <38~LEN<STR$(C >>)C: PRINTER 
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5565 PRINT"II_EAGUE RESULTS UIEEK ”UJ 

5566 K=K+B-C 

5580 X$="0123450123440123340122340112340 
1 12230011230011222" 

5600 FORX =1T04 

5610 H = VAL <MID$(F$,<8*(W-1) + (X*2)-1>,1):> 
5620 R = VAL <MID$(F$, (8* (U1- 1 > + <X*2 ) > , 1 ) ) 
5630 PRINTMID$(M$(H), 3 ) J TAB <20)MID$(M$(R 

) , 9 ) 

5646 IFH<>QANDR<>QTHEN5720 
5680 A=ASC<MID$(Y$,4))-48 
5690 B=ASC <MID$<Y$,5))-48 
5700 GOTO5750 
5720 REM 

5730 A=ASC(MID*(X$, ( <ASC<M*(H> >-l )*6+INT 
<RND<1>*6> + l> >)-48 

5740 B=ASC <MID$(X$,< <ASC <M$(R)) - 1 )*5+INT 
(RND <1)*6) + 1>))-48 

5750 MM*=LEFT*(M*(H),5)+CHR*<ASC<MID$(M$ 
(H) ,6)>+A> 

5760 M$(H)= MM* + CHR*(ASC(MIO*(M$(H >,7))+B 
>+MID*(M*<H>,8) 

5770 MM*=LEFT*(M*(R),5)+CHR$(ASC<MID*(M* 

<R>,6>)+B) 

5780 M*(R)=MMS+CHR*(ASC<MID*(M*(R>,7>>+A 
>+MID*(M*(R>,8) 

6 120 IFAOB THENG0T06140 

6122 MM**LEFT*(M*(H),3>+CHR$<ASC<MID*(M$ 
<H>,4>)+l>+MID*<M*<H),5,3) 

6125 M*(H>=MM*+CHR*<ASC(MID*<M*<H>,8))+l 
>+MID$(M$(H>,9) 

6127 MM*=LEFT*(M*(R),3)+CHR*(ASC<MID*(M* 
<R),4)) + 1) +-MID$(MS(R) ,5,3) 

6 130 M$(R)=MM$+CHR*(ASC <MID*(M*(R),8)> +1 
)+MID$(M$(R),9) 

6135 GOTO6200 
6140 IFA<BTHEN6170 

6150 MM^=LEFT*(M*(H),2>+CHR*<ASC(MID*(M$ 
(H>,3))+l>+MID$(M$(H>,4,4) 

6155 M*(H>=MM$+CHR$<ASC(MID*<M$(H>,8)>+3 
)+MID$(M*(H),9) 

6160 M*(R)=LEFT$(M$(R>,4)+CHR$<ASC<MID*< 
M$(R>,5))+l>+MID$(M$<R>,6) 

6165 GOTO6200 
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6170 MMS=LEFTS<MS<R>,2)+CHRS<ASC<MIDS<MS 
<R > ,3 > > + 1J+MIDS'MSCR),4,4) 

6180 MS<R>=MMS + CHRS<ASC <MIDS<MS<R >, 8 ))+3 
)+MIDS<MS<R),9) 

6190 MS<H)=LEFTS<MS<H),4)+CHRSCASC<MIDS< 
MS(H),5)> + 1)+MIDS <MS < H >,6) 

6200 PRINT"CTTAB<15 >A; TAB <35 >B 
6220 NEXTX 

6290 PR INT"gpRESS jSPETURN* TO CONTINUE 1 ' 
6300 XS ="":INPUTXS 

6310 PRINT"BJ a^LEASE UJAIT A FEUJ MOMENT 
S" 

6320 C =200 
6325 XS=" 

6330 FORX=1T08 
6340 A = - 100 
6350 FORY=1T08 

6360 D=ASC <MIDS<MS<YJ ,3> >+ASC<MIDS<MS<Y> 
,7))/20 

6370 IFD >CORMIDS<XS,Y,1)0" "ORD< =ATHEN 6 
400 

6380 B=Y 
6390 A =D 
6400 NEXTY 

64 10 MS< B )=CHRS(X)+ MIDS(M$<B),2 > 

6420 XS=LEFTS<XS, <B - 1 ) ) + 11 1 " +MIDS<XS, <B + 1 

) > 

6430 C =A 
6440 NEXTX 
6445 S=1 
6450 UI=W+ 1 
6455 P=P-1 
6460 PRINT"J n ; 

6470 GOTO 1400 

6500 REM ****** CHAIRMAN’S --*ICE ****** 

6501 PRINT-J" 

6502 I FUI= 15THEN65 10 

6503 REM 

6505 IFL < >UITHENM = M+ 1 

6510 PRINTES:PRINTTAB < 10)"HCHAIRMANS OFF 
ICE":PRINTES:PRINTESSS3S 

6512 PRINT"H PERMITTED OVERDRAFT £"0:PRI 
NT"gl BANK BALANCE fc"K 

6514 PRINT"H LEAGUE POSITION "ASCCMS(Q)) 
" OUT OF 8 " 
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65 16 PRINT-H flMISDEMEANOR LIARNING NUMBER 
"M 

6540 IFM>4THENPRINT"HH SUPREMO - YOU ARE 
SACKED":PRINTE$E$EÌ: END 
6560 IFLJ> 14THEN6570 

6565 L=W 

6566 INPUT"SS PRESS RETURN* TO RETURN T 
0 DIARY",*X* 

6568 GOTO 1000 

6570 PR INT" M*M CONGRATULATIONS - YOU LI 

IN " 

6575 INPUT" a PRESS <RETURN> FOR NEXT 
SEASON ";X* 

6580 GOTO4400 

10000 REM *** LOAD M/CODE *** 

10005 S = 0: FORT = 0TO78:READX:POKE <4915£+T> 
, X : S =S +X:NEXTT 

10007 IFS< >8956THENPRINT"DATA ERROR IN L 

INES 10030-10060": END 

10010 P0KE54277,120 :P0KE54278,£30 

10015 P0KE54296,15 :P0KE49182,20 :P0KE5428 

7,80 

10020 SYS49152:RETURN 

10030 DATA 1£0,173,20,3,141,26,192,173,21 
,3,141,27,192,169,48,141,20,3,169,192 
10040 DATA 14 1,2 1 ,3,88,96,234,49,234,234, 
£34,16,234,120,173,26,192,141,20,3,173 
10050 DATA27,192,141,21,3,88,96,234,165, 
197,201,64,240,14,141,1,212,173,30,192 
10060 DATA 105,1,14 1,4,2 12,76,75,192,173, 
30,192,141,4,212,234,108,26,192,0 
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Avete perso il contatto con il resto della vostra squadriglia di bombar¬ 
dieri e state ritornando tutto solo alla base. All’improvviso, ecco laggiù 
un aereo nemico. Mentre questi si avvicina, dovete mirarlo ed elimi¬ 
narlo dallo schermo. Ricordate che potete sparare un secondo colpo 
solo dopo che il primo ha eseguito la sua traiettoria e che, a mano a 
mano che il vostro punteggio sale, il nemico vi starà sempre più sotto. 


0 REM NIGHTF IGHTER.WALWYN 

1 GOSUB63900 
3 GOSUB 1000 

5 Ul£ =256 s PT=0 : H =0 s S=.02 

6 DIM PK < £55)!DIM F <8,2),FD(8,£)!DIM GK < 
255 > s GOSUB2000 

7 K =0 :FORI=0TO1 : SS<I>=INT<RND<1>*1000):N 
EXT I 

8 A5=0 :M=9:MM=9:AL=0:AK=0:AA=0:FG=0:GOSU 
B1300 :R =0 :RR =0 

9 POKEUG ,U0 : PR INT 11 

10 PR I NT “Li" : PP = PiP=PEEK( 197) 

15 ON PK(P) GOTO 105,20,30,40,50,60 

20 K=K+1 :AK=AK+ 1 

22 IF P =6£THEN50 

24 IF P =12THEN40 

£3 GOTO 100 

30 K=K-1:AK=AK-1 

32 IF P =14THEN50 

34 IF P =£0THEN40 

38 GOTO 100 

40 K =K-40 s AL = AL- 1 

48 GOTO 100 

50 K=K+40:AL=AL+1 

58 GOTO 100 

60 IFFG=0THENFG=1:KW=K 

100 IFPP =PTHENPP =0 s GOTO 15 

105 IF fìf=1=0 THEN GOSUB50000 

140 IFAA = 0ORAK<0ORAK>390RAL<1ORAL >23THEN 

152 

150 PR INTLEFT$<D$,AL ) ; TFlB (. AK )D$CM) 
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152 IFFG=0THEN160 

153 IFR>MTHENFG=0:R=0:RR=0iGOTO 160 

154 FOR I=1T02 

155 IF R<>M THEN157 

156 GK=PEEK<F<R,I)+K-KW):ON GK<GK)GOTO30 
0,157 

157 IFR<50R I =2THENP0KE F < R , I >+K-KLI ,FD < R , 

I ) 

158 IFR<50RI=2THENP0KE 54272+F<R,I)+K-KUJ 
,U2 

159 NEXTI:RR=RR + . 11*<10-RR):R = INT<RR): IF 
R =9THEN R =100 

160 IFAATHENFORI=Q1T0Q4:POKEGG(I),GO:POK 
E54272+GG(I),U3:NEXTI 

162 IFAATHEN164 

163 GOTO 180 

164 A8 =0 : IF RND <1)*<.03+S)>.055THENA8=1 
175 MM=MM-5*(10-MM):M=INT<MM): IF M<0THEN 
G0SUB51000 :M=9:MM=9 

178 IF 88THENAK=AK+K5:ftL=8L+L5:A5=A5 +1 : I 
FR5 =10THENA5 = -10:L5 = -L5:K5 = -K5 
180 REM DISPLAY TWINKLING STARS 

182 FORI=0TO1 : IF (SS <I ) +K)<0OR (SS (I)+K)>1 
000THEN184 

183 P0KEUS+SS(I>+K,42:POKEUC+SS(I> +K,UE 

184 NEXTI 
200 GOTO 10 

300 REM AIRCRAFT HIT 

310 POKEUG,UR 

350 FOR I=1TO600:NEXTI 

360 FG =0 :A5=0 

370 S =S + .005 

379 PT=PT+INT < S *MM*100) 

330 POKEUG,U0:H=H +1 :PRINT"a" 

382 FOR I=1T05:PRINTTAB(I*4)"IH E L L 
D O N E"s NEXT I 

386 PRINT"lBirOU'VE HIT"H"ENEMY PLANES 

387 PRINT"aPtND SCORED " I NT < S *MM* 100 ) " PO IN 
TS THAT GO. 

388 PRINT"aTHAT BRINGS YOUR POINTS TOTAL 
TO"PT" 

389 PR I NT " SSfTHE RECORD IS 10 PLANES." 

390 PR INT"MTHE NEXT PLANE L1ILL COME AT Y 
OU FASTER 
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39 1 PR I NT" AND MORE AWKWARDLY. . . " 

395 FOR 1 = 1 TO2000 ’• NEXT I 
399 G0T08 

1000 REM INSTRUCTIONS 
1005 PRINT"iJMIGHTFIGHTER 

1007 PRINT"BSHOOT DOUIN THE ENEMY PLANES 
OUT OF A" 

1009 PRINT"STARLIT NIGHT SKY. 


1010 PR I NT "... BEFORE THEY SHOOT YOU DOUIN 


1011 PRINT"SHFRESS DOWN KEYS TO MOVE ARO 
UNO THE SKY. 

10 12 PR I NT " gl 

1013 PRINT" 

1014 PRINT" 

1015 PRINT" 

1016 PRINT" 

1020 
MOVE 
1022 


Q UJ E" 

\l/ " 

A —S —O " 

/ l\ " 

Z X C" 

PR I NT " M<.EEP DEPRESSED FOR A LARGER 


PRINT"HOLD DOWN 


TO OPEN FIRE. 


1023 PRINT"aTTHE GUN SIGHTS SWITCH ON AUT 
OMATICALLY 

1024 PRINT"AS SOON AS A NEW PLANE IS MOV 
ING IN TO ATTACK YOU. 

1025 PR INT"STTH 1S IS A 3 DIMENSIONAL SIMU 
LATION SO 

1026 PRINT"WATCH OUT FOR RANGE.... *HAV 
E FUN.B" 

1030 PRINT"STRESS ANY KEY WHEN READY3" 
1035 GETA*:IFAS=""THEN1035 

1040 pptmtiI7 «: ■■ amillllHHIIIPK . WAIT 
A MOMENT" 

1045 PRINTU9*; 

1090 RETURN 

1300 D$<8>=" . " :D«<7) = "-" :D*<6 > = :D*<5) 

= " 1 " :D*(4 > = "Il—O —ClBKr" 

1310 D*<3 > = "■!-< )-aMTT" : 0$<2 ) = "IMI—CO) 


-Fila—I rmr\ 31 

1320 D$(l> = "ll 


1M3II 3Mi- 

1330 D*C0) = "I1I 


< >). 
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I-?3 D$-"3":FOR I=0TO100 :D$=D$+"U":NEXTI 

1500 Q1 = 1 :Q4 = 4 :GG =500 + US!GG<1>=496+US 

: 505 GG CE)=504 +US:GG < 3 >=380+US:GG <4>=6E0 

♦US :GD = 9 1 

1510 GU=4S0+US 

1399 RETURN 

E0O0 FOR I=0TO255 s PK <I> = 1 :NEXT I 
E010 PK < 10 ) =2 : PK < 13 > =3 : PK <23 ) =4 : PK O > =5 
2020 PK <62 > =2 : PK < 14 > =3 : PK < 12 > =2 : PK <20 > =3 
:PK(13 > =6 

2040 FORI=0TO255:GK< I > = 1 :NEXTI 

2050 GK <42> =2 :GK < 46 > =2 :GK <32 > =2 :GK <160 > = 

2 :GK< 233)=2 

2100 F <0,1>=US+490:F <0,2 > =US+5 10 : F <1 ,1 > = 
US+497 : F < 1 ,2. > =US + 503 

2110 F<2,1>=US+498:F<2,2>=US+502: F <3,1)= 
US+499 :F <3,2 > =US+501 
2120 FOR J=1T02:F<4,J>=F<3,J>:NEXTJ 
2130 FOR I=5T06:F0RJ=1T02:F<I,J)=US+500: 
NEXT J,I 

2140 FOR I=?TOS:FORJ =1T02:F <I,J > =US +540 : 
NEXT J,I 

2200 FQ<0,1) = 102 :FD <1,1)=227 :FD <2,1)=248 
! FD < 3,1)=93 :FD < 4,1>=108 

2210 FD <5,1) = 111 :FD <6,1> = 100 :FD <7,1>=69 : 
FD <8,1>=45 

2220 FOR I=0TO8:FD<I,2>=FD<I,1>:NEXTI 
2230 FD <4,2 > = 123 
2999 RETURN 

50000 IF RND <1> <.9THEN RETURN 
500 10 Aft=l:AK = INT< RND <1>*24+8> 

50030 AL =INT < RND <1 >*8+7> 

50040 K5 =INT(RND <1> *3-1>:L5=INTCRND <1> *3 
- 1 > 

50099 RETURN 

51000 REM FLASH SCREEN FIVE TIMES 
51002 FORK =1T05:POKEUG,U1 :FORN=1TO30:NEX 
TN:POKEUG,U0 

51004 FORN=1TO20:NEXTN:NEXTK 

51010 AA = 0:FG=0:R=0:RR=0:(=ik=0:AL=0:S=.02 

: A5 = 0 

51050 PRINT " agMEI OH DEAR OH DEAR. . 

51060 PRINT"HfirrOU ' VE BEEN SHOT DOLIN AND 
THAT'S YOUR 


20 Solo nella notte 


5 1070 PRINT"M_OT FOR THE MOMENT! 

5 1080 PR 1 NT 11 iMYOU SHOT DOWN"H“PLANES. 

5 1082 PR I NT " ®\) I TH A TOTAL OF " PT " PO INTS . 
51085 PRINT"IDBTHE RECORD IS 10 PLANES... 
51080 PR1NT"MMANOTHER GO? <Y/N) 

51091 GET A$: IF A$< > " 11 THEN 51091 

51092 GET A*:IFA$ =""THEN 51092 

51094 IF A*="N" THEN PRINT"SB9K. THANKYO 
U. "s END 

51096 PT = 0 s H =0 
51099 RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US=1024 :UC=55296:UG = 53281 

63904 UB=53280:UV=54296 :UA=54277:UD=5427 
8 : UH=54273:UL=54272 

63905 UW=54276:U0=0:U0$="B":U1=1:U1*="8" 
:U2 =2:U2*="3" 

63906 U3 = 5:U3$ ="U" SU4=6 :U4*="3":U5 = 8:U5$ 
= » 11 : US = 9 : U6$= 

639 10 U7= 10:U7$= "8" : U8=13:U8*= "il" : U9 = 14 : 
U9$=-U" :UU = 4:UU$= " 8 " 

639 15 UR = 12 : UR$= "a" ! UE=7 : UE*= "BT : UF = 1 1 : U 
F$="H“ : RETURN 


il ponte 
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: ete un ingegnere civile che deve costruire un ponte sopra un burro- 
"■? molto pericoloso prima che arrivi il treno che dovrà attraversarlo, 
iTrend, non avete molto tempo e dovete disporre i mattoni della vo¬ 
rrà mitata riserva nella sequenza giusta affinché ognune) sia in grado 
3 sostenere quelli successivi. 


5 REM BRIDGES...WALWYN 
? GOSUB7000 

10 REM NB =NO. OF BRICKS 

15 REM P=SCREEN POSITION OF BUILDER 

14 REM G=BASE SCREEN POSITION FOR SCREEN 
POKE 

16 REM GC=BASE SCREEN POSITION FOR SCREE 
N COLOUR 

18 REM D < 0) ANO D<1) ARE SCREEN CHARACTE 
RS FOR A BRICK 

19 REM BK < 0 AND 1) ARE THE CHARACTERS UN 
DER THE BUILDER 

20 REM 8T<0 AND 1) ARE THE CHARACTERS DI 
SPLAYED NOIJ 

21 REM BC < 0 AND 1) ARE THE BRICK COLOURS 

22 REM RX IS HORIZONTAL POSITION OF TRAI 
N 

23 REM RY IS VERTICAL POSITION OF TRA IN 

24 REM R* IS THE TRA IN DESIGN 

26 REM S*<0> IS THE SIGNAL DESIGN 
28 REM S3K1> IS THE SIGNAL DESIGN <GREEN 

> 

30 REM DF =DEGREE OF DIFFICULTY <1-9) 

31 REM IF H =0 THEN HALF-A-BRICK 

42 REM BN=NUMBER OF BRICKS TO DO THE JOB 

43 DIM BK<1),BT<1) ,D< 1),BC<1>,S$<1> 

45 G=US:GC=UC:D<0)=204 :D(1)=239 



60 BS= 
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65 r*=” aiiiuirsT minia =■ mn 

moooo " 

67 RX = 35 :DF =0 

70 s^<0) = ,,- »ait 

75 S$ < 1 > = " lEMaìHxaDOilX " 

78 GOSUB9500 
80 GOSUB4000 

100 REM START OF PROGRAM 
108 GOSUB9500 

105 DF =0^ +1 :BN=0:H =1 :RR=0 :RY = 5:BT<0) = 108 
:BT(1> = 108 

110 RX=35:P=436:BK<0)=160:BKC1)=160:BC<0 
)=U6:BC < 1 > =U6 
115 RZ =0:BF=0 

180 GOSUB5000:RT = TI+7800 :BN=INTCBN/8> 

148 REM MOVE AND DISPLAY BUILDER BRICK 
150 IFNP =0THEN130 

155 FORJ=0TOH:POKEG+P+J,BK <J)sPOKEGC+P+J 
, BC < J )tNEXTJ 

160 P =P +NP: IFP < 380THENP = P-NP 
165 IFP>960THENP=P-NP 
170 FORJ=0TOH:BT<J)=108 

178 BK<J>=PEEK(G+P+J)!BC(J)=PEEK(GC+P+J) 
175 NEXTJ 

190 FORJ=0TOH:POKEG+P+J,BT<J>:POKEGC+P+J 

,U8:NEXTJ 

800 REM GET A KEY 

810 PR I NTU4$; "BTI ME LEFT= BRI 

CKS LEFT= 

815 R = I NT <(RT-TI>/60>: IFRR = 8THENR=0 : GOTO 
818 

817 IFR < =0THENRR =1 

818 PRINTU8*;"aiHPEGREE OF DIFFICULTY="D 
F 

880 PRINTUF^.r ,, a"TAB< 1 1 > ; R ; TAB < 34 ) BN 
830 GETA$ 

840 NP=0: IFA$="A"THENNP = - 1 
850 IFA*="S"THENNP=1 
860 IFA$ ="W"THENNP=-40 
870 IFA$ ="Z"THENNP=40 
830 IFA$ ="+"THEN300 
885 IFA$ ="-"THEN400 
888 IF A$="t"THENRR =1 
890 IFRRTHENGO3UB500 
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£31 IFA$<>"*"THEN298 
23£ H = H +1 ! IFH =2THENH =0 

£33 IFH =1THENPOKEG + P,BK <0):POKEGC+ P,BC<0 
>: GOTO 160 

234 FORJ =0TO1 :POKEG+P+J,BK<J):POKEGC+P+J 

,BC < J >:NEXTJ 

£95 GOTO 160 

238 GOTO 150 

300 REM BRICK BUILD 

305 IFBN< H♦2THEN150 

310 FOR J =0TOH : IFBKCJX >3£THEN150 

320 NEXTJ 

330 FORJ=0TOH:BK<J)=D<J):BT<J>=D<J>:BC<J 
>=U0:NEXTJ 
350 BN = BN-H*2 

355 FORJ =0TOH: IFPEEK(G+P+40+J)< >3£THEN36 
5 

360 NEXTJ:GOTO370 
365 GOTO330 

370 REM BRICK UNSUPPORTED 

372 GOSUB2000 

390 GOTO 150 

400 REM REMOVE BRICK 

405 IFH=0ANDPEEK <G + P+1> =D < 1>THEN150 
410 FOR J =0TOH : IFBKCJX >D(J>THEN150 
420 NEXTJ 

425 REM CHECK IF BRICK SUPPORTS ANOTHER 
430 FORJ =0TOH: IFPEEK<G + P+J-40X >32THEN15 
0 

440 NEXTJ 

460 REM OK TO REMOVE BRICK 

470 FORM=0TO4:FORJ=0TOHs POKEGC +P +J,1:NEX 
TJ 

480 FORJ=0TOH:POKEGC+P+J,£:NEXTJ:NEXTM 

492 FORJ = 0TOH:BK <J)=3£sBT <J> = 102:BC(J)=U 

4:NEXTJ 

494 BN=BN+H*2 

436 GOTO 150 

500 REM FINISH 

505 I FRR= 1 THENRR = 2 : PR I NTUF$; “ «HHSMI" S$ 
C1):GOSUB9000 

5 10 RX =RX-1 : IFRX<4THENGOSUB9000:GOTO 1000 
520 IFPEEK(G+322+RX > <128THENRZ = 1 
525 IFRZ>0THENRY = RY+1 :R2=RZ + 1 
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530 PRINTUES;LEFT$<Y$,RY);LEFT*<X$,RX);R 
G0SUB9 100 

532 IFRZ >1ANDRZ <5THEN525 
535 IFRZ =0THENRETURN 
537 GOSUB9200 

540 PRINTU2$; "BRIDGE NOT COMPLETE! YOU ‘ 
VE FAILED... 

550 PRINTU0*; "ffllANOTHER GO? <Y/N>" 

N 

560 GETA*:IFA$<>""THEN560 
570 GETA*:IFA*=""THEN570 
580 IFA$ ="Y"THENRUN 

530 pp i NT » amwTM amk vni l FOR PLAYING ’BRID 

GES ' 

595 END 

999 GOTO200 

1000 REM SUCCESS ! 

1010 PRINTU4*;"SHUELL DONE......ANOTHER 

GO? < Y/N) 

1020 GETA$:IFA*<>""THEN1020 
1030 GETA$:IFA$=""THEN1030 
1035 GOSUB9500 
1040 IFA$ ="N"THEN590 
1050 GOTO 100 

2000 REM BRICK UNSUPPORTED 

£010 FORJ=0TOH:POKEG+P+J,BK<J)SPOKEGC+P+ 
J,BC(J >:NEXTJ 

2040 FORJ =0TOH: IFPEEK(G+P+40+J)<>32THEN2 
060 

£050 NEXTJ:BF = 1 :GOTO2070 

2060 BF =0 :FORJ =0TOH!POKEG +P+J,6T<J>:POKE 
GC+P+J,U£:NEXTJ 

2070 FORJ =0TOH:POKEG +P + J,32 :NEXTJ 
£07 1 IFBF =0THENRETURN 
£07£ P =P +40 

2073 IFP>960THENP=960:BF=0 

£075 GOTO2010 

£080 RETURN 

4000 REM INSTRUCTIONS 

4010 PRINT"J":POKEUG,U9:POKEUB,UF 

4020 PR INTU2$"j3 B R I D G E S 

II 

4030 PRINTU4$; "HYOUR TASK IS TO BUILD A 
BRIDGE FOR THE 
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-040 PRINT"TRA IN ACROSS A DANGEROUS RAV I 
VE . 

-350 PR INT " YQU HAVE TUIO MINUTES BEFORE T 
-E TRA IN 

4060 PRINT"STARTS TO MOVE AND A LIMITED 
'IjMBER OF 

4070 PRINT“BRICKS TO BUILD THE BRIDGE. T 
-ESE ARE 

4080 PRINT"DISPLAYED AT THE TOP OF THE S 
CREEN. “ 

4100 PRINT”MTHE KEY CONTROLS ARE:"U£$ 
4110 PRINT"MA : MOVES THE BUILDER TO THE 
LEFT 

4120 PRINT"S : MOVES THE BUILDER TO THE 
RIGHT 

4 130 PR INT"Li : MOVES THE BUILDER UP THE 
SCREEN 

4 140 PR INT"Z : MOVES THE BUILDER DOUJN TH 
E SCREEN 

4160 PRINT"+ : LAYS A BRICK IN PLACE 
4170 PRINT"- : REMGVES A BRICK 
4180 PRINT"* : CHANGES TO 1 HALF-A-BRICK' 
AND BACK 

4190 PRINT" TO FULL BRICK SIZE AGAIN 
4195 PRINT"t : IF YOU FINISH BEFORE TIME 
IS UP!" 

4200 PR INT"ILFRESS ANY KEY WHEN READY" 
4210 GETA*:IFA$<>""THEN4210 
4220 GETA$:K=RND<1>:IFA$=""THEN4220 
4300 PRINT"iJYOU MAY ONLY PLACE A BRICK W 
HICH IS 

4310 PRINT"SUPPORTED - EITHER UPON ANOTH 
ER BRICK 

4320 PRINT"OR UPON PART OF THE RAVINE WA 
LL. 

4330 PRINT"AN UNSUPPORTED BRICK WILL TUM 
BLE DOWN ! " 

4340 PRINT"HTO REMOVE A BRICK, YOU MUST 
PLACE 

4350 PRINT"THE 'BUILDER' EXACTLY OVER TH 
E BRICK TO 

4360 PRINT"BE TAKEN AWAY. THIS ALSO APPL 
IES TO 

4370 PRINT"'HALF-BRICKS'. YOU WILL NOT B 
E ALLOWED" 
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4380 PRINT M TO REMOVE A BRICK IF IT SUPPO 

4390 PRINT"ANOTHER BRICK, SO YOU WILL HA 

4400°PRINT"BUILO FROM THE BOTTOM AND REM 

44 % F Pr'iNT-THE TOP. CPRETTY OBVIOUS REAL 

4420 PR INTU4$"MaIHEN THE TRA IN STARTS TO 

4430 PRINT"CAN STILL BUILD BRICKS BUT YO 

4440 N pRINT"HAVE MUCH TIME TO FINISH THE 

4450 G pRINT"THE 'BUILDER BRICK' STARTS OF 

4460 N PR^NT"THE TRA IN. KEEP AN EYE OUT FO 

44 ?0 E PRINT"AS NELL AS THE NUMBER OF BRIC 
i/c 1 RFT. " 

4480 PR INT " L4HOLE BRICKS C0UNT:8 BND HflLF 

4490 C pRINT"REMOVING THEM WILL ADD TO YOU 

4500 PRINT"SGOOD LUCK. IT GETS MORE DIFF 

45 ^10 T pR^NT"YOU GO ALONG. STRESS ANY KEY 
TO START1B" 

4980 GETA*:IFA*<>""THEN4980 
4390 GETA$:IFA$ =""THEN4930 

4999 RETURN 

5000 REM SET UP SCREEN AND 

5010 PR I NT " kJSBHMHHM" = POKEUG ,U9 * POKEUB ,U3 

5020 FOR J =0TO15 
5030 PRINT"a"U6*;B$; 

5050 FOR J = 0TO39:POKEG+960 + J , 160 :POKEGC + 

960+J,U6 
5060 NEXTJ 
5100 PRINTUF*; 

5110 PR INTUE*; LEFT$<Y$,RY) /" LEFT$<X$,RX ) > 


R* 

5200 FOR J=1TOINT(DF/2) 

52 10 N=INT <RND(1> * <1+DF*2 >+8 > 
N/2 ÌTHEN5210 


IFN/2=INT< 
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5220 S=INTCRND<1>*30+5> 

5230 IFN+S >32THEN5210 

5240 FORL = 0TON-INT <RND<1)*4 >: A =INT <RND(1 
)*2):FORK =0TON 

5245 P1=G+320+S+K+A+L+L*40: IFP1-US>960TH 
EM5230 

5247 IFA =1THENP1=P1- 1 

5248 IFPEEK <P1)< >32THENBN=BN+1 
5250 POKEP1,32 

5260 NEXTK: IFPEEK <P1 + 1>=32THEN5275 

5270 POKER 1+1,244 

5275 N = N-1 : IFA=0THENS=S-1 

5230 NEXTL 

5290 NEXTJ 

5999 RETURN 

7e00 REM ***************************** 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM CONLY USE THESE COLOURS> 

7010 U0=0:U0* =! REM BLACK 

7020 U 1 = 1 : U 1 $= "3" : REM LIHITE 

7030 U2=2!U2$= " 3 " : REM DARK RED 

7040 U3=5:U3$ ="U" : REM GREEN 

7050 U4=6 s U4$= " 3 “ ! REM DARK BLUE 

7060 U5 = 8:U5$="": REM ORANGE 

7070 US=9 :U6* ="R": REM BROUN 

7080 U7=10 :U7$ ="0": REM PINK 

7090 U3=13 :U8$ = "i" •REM LIGHT GREEN 

7100 U9=14 :U9$="a" : REM LIGHT BLUE 

7 110 UU = 4 : UU$ = "s*" : REM PURPLE 

7120 UR=12 s UR$="y : REM LIGHT GREY 

7 130 UÈ =7 : UE$ = " H" : REM LIGHT YELLOLI 

7140 UF=1 1:UF$=“0": REM DARK GREY 

7200 REM SCREEN 'POKE' CODES FOR 64. 

7210 US=1024:REM SCREEN POKE CHARACTER 
7220 UC = 55296 : REM SCREEN POKE COLOUR 
7230 UG=53281 : REM BACKGROUND COLOUR 
7240 UB =53280 : REM SCREEN BORDER COLOUR 
7300 REM SOUND 'POKE' CODES FOR 64. 

7310 UV =54296 s REM VOLUME FOR 3 VOICES 
7320 UA=54277:REM ATTACK FOR VOICE 1 
7330 UD =54273 : REM SUSTA1N FOR VOICE 1 
7340 UH=54273: REM HIGH BYTE FOR VOICE 1 
7350 UL=54272: REM LOU BYTE FOR VOICE 1 
7360 UW=54276: REM UAVEFORM FOR VOICE 1 
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7400 RETURN 

7500 REM ***************************** 
3000 REM TRA IN UH1STLE 
9005 GOSUB9500 

9010 POKEUV,15:POKEUA,31 :POKEUD,32:POKEU 
W, 17 

90 15 POKEUH,60 :POKEUL,255 
9020 FORL =1TO100 :NEXTL 

9030 FORL =0TO200STEP2:POKEUL,L:NEXTL 
9035 GOSUB9500 
9040 RETURN 

9100 REM STEAM TRAIN ' CHUFF 
9105 GOSUB9500 

9 110 POKEUV,15:POKEUA,9 :POKEUD,24 :POKEUU 
123 

9115 POKEUH,INTCRND <1> *30)+20 :POKEUL,0 
9140 RETURN 

9200 REM TRA IN CRASHES SOUND 
9205 GOSUB9500 

9210 POKEUV,15:POKEUA,12:POKEUD,128:POKE 

UU,129 

9215 POKEUH,18:POKEUL,0 
9240 RETURN 

9500 REM CANCEL VOICE ONE SOUND 

9510 POKEUV,0 :POKEUA,0 :POKEUD,0 :POKEUH,0 

9520 POKEUL ,0 : POKEUL),0 : RETURN 


29 


Granatieri 


Granatieri è un gioco a due, in cui i due concorrenti hanno a loro di¬ 
sposizione un certo numero di granate e un lanciatore. Scopo del gio¬ 
co è riuscire a lanciare la granata e a cancellare per sempre il vostro 
nemico dalla faccia della Terra. Ci sono naturalmente delle considera¬ 
zioni tattiche. Essenzialmente avete due possibilità: o lanciare la bom- 
oa o fare una mossa (o lungo il profilo della montagna o dentro un 
tunnel scavato nel terreno). Se decidete di spostarvi, lo potete fare 
per quattro posizioni, che però si riducono a due se decidete di na¬ 
scondervi nel tunnel (perché in questo caso esiste un altro tipo di 
sforzo). Poiché esiste un limite alla distanza che può raggiungere una 
granata, entrambi i giocatori hanno una capacità di lancio limitata, 
con la conseguenza che la posizione tattica diventa un fattore di im¬ 
portanza primaria. 


1 REM COMMODORE 64 PROGRAM 

2 GOSUB5000 

5 REM GRENADIER.. . . U1ALUJYN 

6 GOSUB63900 
10 G=US 

12 P$< 1>=U2$+"LEFT PLAYER": PS<2>=U4$+"RI 
GHT PLAYER" 

14 POKEUB,UF:POKEUG,U0 

15 PRINT"J"UFS; :P0KEUG,U9 

20 X =RND(1):Z=RND<1): A = RND C1>*5:B=RND<1) 
*5 

22 KZ =0 : X C1)=0 : X <2 )=0:Y<1)*0:Y<2)=0 
25 FOR I=0TO39 

30 X=X+RND<1)/2:Z=Z+RND<1>/2 
40 Y = I NT ( S IN ( X ) :*A + COS ( Z ; *B + 14 > 

42 FOR K =YT024 

45 POKEG+I+40*K,180 :POKEUC+1+40*K,U6 
48 MEXTK 
50 UEXT I 

100 X( 1> = INT<RNO<1 > *8+4 >: X <2 > = INT<RND < 1 ) 
*8+28 ) 

110 FOR I=1T02 

120 K=PEEK(G+X<I)+40*(Y<I) + 1>) 

130 IF K =32 THEN Y<I )=Y<I) + 1 : GOTO 120 
140 POKE G+X(I)+40*Y(I),35 
145 UM=U2:IFI=2THENUM=U4 
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147 POKE UC+XCI>+40*YCI>,UM 

150 NEXT I T 

200 FOR I=1T02:MM=4:IFL2=lTHENLZ-0:I-H 

201 FOR K=1T02:UM=U2:1FK=£THENUM=U4 

202 IF PEEKCG+X<K>+40*(YCK>+1>><>160 THE 

N £04 

203 POKEG+X<K>+40*YCK>,35:POKEUC+XCK>+40 

*Y<K>,UM:NEXT K:GOTO205 

204 POKE G+XCK>+40*YCK>,3£!YCK>=VCK> + 1 *G 

OTO202 

205 PR INT"gtì"P* ( - I > "■ ^IsDIG OR MOVE 
T:THROW" 

206 GETfì$: IF =“" THEN £06 

207 IF A$="T" THEN 215 

209 IF THEN 9000 

210 GOTO206 

2 15 INPUT" aa^NGLE -90 TO +90";A<I> 

220 IF R <I) <-90ORR(I)'90THEN215 
225 INPUT"HBOSTRENGTH <l-5)“/P<I> 

227 PCI>=P<I>*£ : IF P<I)<=0ORP<I>>10THEN2 

£5 

228 GOSUB10000 

240 IF 1=2 THEN 260 

250 YF=-RCI)/90*PCI)/15 

252 XF= (90-fiBS Cfì C I ) > )/90*F' C I )/15 

255 G0T0275 

260 YF=-ACI)/90*P<I)/15 

262 XF = -C90-ABS Cft <I>>>/90*P<I>/l 5 

275 IG =0 ! XX=X CI> +SGNCXF) + .5 5 YY=YCI)+SGNC 

YF> + . 5 

280 Y8 =0•X8 =0 

300 XX=XX+X8 : YY = YY + Y8 : YF=YF+. 0 1 5 1FYF>1TH 
ENYF = 1 

301 X8=XF:Y8=YF 

305 Z1=INTCG+INTCXX>+INTCYY)*40) 

306 Z2 =INT<G +INT<XX + X8) + INT(YY +Y8)*40) 

307 IF YY+Y8>24 OR XX+X8C0 OR XX+X8>39 T 
HEN POKE Z1,3£:GOTO400 

308 IF YY+Y8C1 THEN IG=lsPOKE Z1,3£!G0T0 
313 

310 IG =0 

313 K =PEEK(22) 

315 IF IG THEN 300 

320 IF K =32 OR K=81 THEN 340 
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?<. IF K = 35 then KZ = 1 
13 3 ~3KEZ 1 ,32 

3 30 -OR J = 1TO20: POKEZ 2,42 .'POKEZ 2,32: NEXTJ 
: - * Z =0 THEN 400 

333 IF INT<G+X(2)+40*Y<2>) = 2 2 THEN LZ = 1 : 
— I + 1 : GOTO335 

:3- ^2=W2fi 

FOR J = 1T05:P0KEZ2+J,42 :P0KEZ2-J ,42 :P 
>E Z2-J*40,42:POKEZ2+J*40,42 : NEXT J 
:3~ PRINT"aS3ESTROYED! ANOTHER GAME? <Y/ 
*:GO3UB2000:GET A$:IF A$="" THEN336 
3-37 IF KZ = 1 AND A$="Y" THEN G0T05 
338 IF KZ = 1 THEN PR I NT " gBTHANKYOU FOR TH 
Z 3ARt. . . “ : END 
3^0 POKEZ 1 ,32 
35? POKEZ2,81 :GOTO300 
400 REM 
450 NEXT I 
t-?0 GOTO200 

3200 PR INT"3BCOF.E 13 NON. ..... 

3010 PRINTU2*;"HLEFT:"Wl" 

"U4$; "R IGHT: "UI2 
=100 RETURN 

= 000 PR I NT "kJGRENAD IER " 

5010 PR INT "ITTH IS IS A CONTEST BETWEEN TU1 
0 PLAYERS 

5830 PRINT"ARMED WITH SHOVELS AND GRENAD 
ES . " 

5030 PR INT■’EACH PLAYER IN TURN MAY E I THE 
R ‘"HROU A 

5040 PRINT"HAND GRENADE OR MOVE AND/OR D 
IG 

5050 PRINT"THROUGH THE ROCK." 

5060 PRINT , 'SIF THROWING, YOU MUST TELL T 
HE COMPUTER 

5070 PR I NT " UJHAT ANGLE YOU ARE THROUJING T 
HE GRENADE 

5080 PR INT" < A NEGATIVE DEGREE IS DOWNLIAR 
DS > 

5030 PRINT"AND HOU MUCH STRENGTH YOU ARE 
USING." 

5100 PRINT"SIF MOVING, PRESS A KEY TO MO 
VE OR DIG:" 

5110 PRINT"Q =UP AND LEFT , W=UP , 

ND RIGHT 


E =UP A 
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5120 PRINT"A=LEFT, S=STAND STILL , D=RI 
GHT 

5 130 PR I NT "Z =DOWN AND LEFT , X = DOUIN, C =DOUIN 
AND RIGHT 

5140 PR INT"9D IGG ING IJILL TAKE UP MORE TI 
ME THAN 

5150 PRINT"MERELY MOVING OVER THE MOUNTA 
IN TOP" 

5160 PRINT"MaGOOD LUCK...DON'T GET CAUGH 
T. . . " 

5200 PR INT'^RESS ANY KEY TO START" 

5210 GETA*:IFA$=""THEN5210 
5230 RETURN 

9000 PRINTU6$"SBPRESS APPROPRIATE LETTER 
:"UF$;"Q Ul E 

9005 PRINT" "UF* 

; "A "U2$; “aSB"UF*; " D 

9010 PRINT" "UF$ 

; "Z X C" 

9020 B =0 : GET B$: IF B$="" THEN 9020 

9021 IFB$="Z"THENB=1 

9022 IFB$="X"THENB =2 

9023 I FB$="C"THENB =3 

9024 IFB$="A"THEt'©=4 

9025 IFB^="S"THENB =5 

9026 IFBS="D"THENB =6 

9027 IFB$= *Q"THENB =7 
9023 IFB$="Ui" THENB = 8 

9029 IFB$="E"THENB=9 

9030 IFB=0THEN9020 

9035 XX=X<I>:YY=Y<I>:POKE G+X<I)+Y<I)*40 
,32 

9040 ON B GOSUB 9110,9120,9130,9140,9150 
,9160,9170,9180,9190 

9050 IF X <I)>39 OR X(I)<1 OR Y<I>>24 OR 
Y < I ) <2 THEN X<I)=XX:Y<I)=YY 

9055 K=PEEK<G+X<I>+40*Y<I)> 

9056 IFK =160 THEN MM=MM-1 

3057 MM=MM-l:IF MM<0 THEN X<I>=XXsY<I>=Y 
Y: GOSUB10000 :GOTO400 

9060 UM=U2!POKE G+ X<I>+40*Y<1>,35 : IF I =2T 
HENUM=U4 

9062 POKE UC+X<I>+40*Y<I>,UM 
9065 GOSUB10000 
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9070 IF MM>0 THEN 9000 
9030 GOTO400 

9110 X <I)=X <I)-1 :Y<I)=Y<I) + 1 : RETURN 
9 120 X < I )=X <I)+0 :Y <I> =Y CI) + 1 : RETURN 
9130 X <I)=X <I> + 1 :Y <I> =Y ( I) + 1 : RETURN 
9140 X <1)=X <I)- 1 :Y <I)=Y <I)+0 : RETURN 
9150 X(I>=X<I)+0:Y<I)=Y(I)+0:RETURN 
9 160 X<I> =X ( 1> + 1 :Y<I)=Y<I> +0 : RETURN 
9170 X <I)=X <I}-1 :Y<I> =Y<I)-1 : RETURN 
9180 X<I>=X(I)+0 :YCI)=Y<I>-1 : RETURN 
9 190 X(I)=X(I) + 1:Y<I>=Y<I>-1: RETURN 
10000 FRINT"g 

II 

10100 PRINT" 

II 

10105 PRINT" 

II 

10107 PRINT" 

II 

10110 RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US=1024 :UC=55296 :UG=53281 
63904 UB=53280 :UV=54296 :UA=54277 :UD=5427 
8 : UH = 54273 :UL=54272 

83905 UUI=54276 : U0=0 : U0$= "|" : U 1 = 1 : U 1 $= "a" 

:U2=2:U2$="3" 

63906 U3=5 : U3$= "||" : U4=6 : U4$= "3“ : U5=8 : U5$ 
=“":U6=9:U6$="R" 

63910 U7 = 10:U7$="O":U8=13:U8$ ="H"s U9=14 : 
U9$="□" :UU = 4:UU$="3" 

639 15 UR= 12 : UR*= "y : UE = 7 : UE$= "D" UF = 1 1 : U 
F*= “ 8 " : RETURN 
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Alla deriva nello spazio 


Alia deriva nello spazio e senza carburante, avete solo la vostra pistola 
Tafer per di?lnSe^ contro le creature nemiche che vi stanno assalen- 

La vostra'navelpazlale può essere mossa a destra o a sinistra con i ta¬ 
sti 1 e 2 il raggio laser può essere azionato con il tasto 9 e, se siete 
proprio disperati, potete sempre decidere di scomparire premendo il 
tasto 0 e di rimanere invisibili per un certo periodo di tempo. 


1 REM***64 VERSION*** 

5 REM*** CHESHIRE CAT *** 

10 REM MOD1FIED FOR CBM 64 BY I.FROST 19 
83 

15 GOSUB9000 
18 HS =0 
£0 GO3UB8000 

93 REM MG IN PROGRAM LOOP! P=VALUE KEY PR 
ESSED 

100 P =PEEK(197): IFP=56THENR0-RO- 1 : IFRO< 1 
THENR0=8 

105 IFP=59THENR0=R0+1 ! IFRO >8THENR0-1 
130 POKECE,RO +123 :P0KE55E96+CE-1024,0 
140 IFP = 35THENGOSUB4000 : REM ’0’ 

150 IFBTHENIFP =3£THENG0SUB 1000 !REM '9' 
130 ONTGOSUB0,£00,300,400,500,600,700,80 
0,900 

18£ p =PEEK. <CE > : IFP>1360RP< 129THENGOSUB70 
00 

185 TX=TX -1 ! PR I NT " UMIUHMUIWM™ 11 
imiHI" ; TX ; "|| " : IFTX = 0THENGOTO6000 

190 IFT1-TX > =£9THENGOSUB3000 
195 GOTO 100 
139 REM 

£00 Y=Y+£!X=Xr£: IFY>=24THENY=£ 

£10 IFX >=39THENX = 0 

£20 PRIHT"a" ;LEFT*(AC$,X1>;LEFT$<DN*,Y1> 

" AMI 

£25 PRINT"a" f LEFT$(AC$,X>;LEFT$<DN$,Y>; *' 
aiK.aMi-M" 
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c30 Y1 =Y: XI = X: RETURN 

330 Y=INT< Y + RND<I>* 1.5-RND(I>* 1.5):X=X+£ 

:IFY>=24THENY=1 

305 IF Y = 1 TH E N Y = 23 

20' J F X '/ = 3 3 TH ENX-0 

120 GOTO220 

"30 Y= T NT (Y + RND < I ) *3-RND < I ) *3 ) : X = INTCX+R 
*<C(I)*5-RND(I>*3> 

4 10 J FX < 0THENX = 39 
-20 IFX >38THENX=0 
-30 IFY>23THENY=2 
440 IF Y< 2THENY = 23 

-^0 PR I NT" SS" ;LEFT$(fìC$,Xl > ; LEFT$ < DN$ , Y 1 > 

■ fili " 

-60 PRINT"a" ; LEFT$<AC#,X>;LEFT$<DN*,Y); " 

■a JoaipQ ■ 

470 Y1=Y:X1=X: RETURN 

500 Y=Y-3: IFY<2THENX=X+INT(RND(I)*7>+3 :Y 
-23: IFX > 30THENX = INT(RND(I>*5> 

5 10 PR INT"g" ; LEFT*(AC$,X 1 > ; LEFTs*(DN$, Y1 > 

: ’ IMI ■ 

520 PRINT"91 " ;LEFT$(AC!S,X;> ;LEFT$(DN$,Y); " 

m bmfq " 

530 X1=X:Y1=Y:RETURN 
600 DE =DE +1 

6 10 IFDE=5THENY=INT(RND <I>*23>+l:X=INT(R 
NO ( I ) *39 ) + 1 : DE=0 

615 i=Y+INT(RND(I)*2-RND(I)*2):X=X+INT(R 
NO ( I ) *2 -RND ( I !'*2> 

617 IFY<20RY >230RX<0ORX>39THENDE =5 :G0T06 
10 

6c'0 PR I NT "g" ; LEFT£( , X 1 > ; LEFT$(DN$, Y 1 ) 

ani " ; 

6 o0 F R I NT " a" ; LEFT$ ( AC * , X ) ; LEF T$( DN$ , Y ) ” n 

iF'sjairu " 

640 Y1=Y:XI=X:RETURN 

700 Y = Y +INT(RND(I> *2-RND(I) + (Y<1 1>-(Y>l1 

> >: X =X +2 


710 

720 

730 


IFX >39THENX = 0 
IFY >230RY < £THENY=1 1 

PRINT ’a" ;UEFT$(ACS,X 1 );LEFT*(DNS,Y 1 ) 

sin " 


735 PR INT"g";LEFT$(AC$,X);LEFT$(DN$, 

■33RHIÌIDP " 


Y>; - 
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740 X1=X:Y1=Y:RETURN 

800 Y=Y+DI:X=X+2:DE=DE+1: IFDE=5THENED=0 : 

DI=-□ I 

810 IFY<£THENY=23 
820 IFY >£3THENY = 2 
830 IFX >39THENX = 0 

840 PRINT"9" f LEFT$ <AC$,X1);LEFT$<DN$,Y1) 

" *111 

845 PRINT ,, a ,, ;LEFT$<AC$,X>;LEFT$<:DN$,Y>; " 

BiaBRMlPP " 

350 Y1=Y:X1=X:RETURN 
900 Y = Y + DI :X=X+DE 
9 10 I FX >39THENX =0 
920 IFY<2THEWY=£3 
930 IFY>23THENY=1 

940 IF R ND < I > > . 8THENDE = < 2ANDDE =0 ) :DI = <2AN 
DD 1=0)! IFRND <I> >•5THENDI=-DI 

950 PRINT"a":LEFT$(AC*,X1);LEFT$(DN^,Y1) 

" >111 

960 PRINT"3"*LEFT$<AC$,X>;LEFT$<DN$,Y>;" 

aai i ami i " 

970 Y1=Y! X1=X! RETURN 
399 REM FIRE LASER 

1000 B =B - 1 : PR I NT ” ^ IIIIHI*II*W*M *1 i B 

• Il || 

1005 POKESO+1,40 s P0KES0+4,32:P0KES0+4,33 
10 10 FORJ =SR(RO)TOST(RO)STEP-UP(RO) 

1020 P=( J-UP(RO) ■> : IFPEEK <P ) < >3£ANDPEEK<P 
><>46THEN1500:REM A HIT! 

1030 POKEJ,CP <RO)* NEXT 

1040 FORJ=SR < RO >TOST<RO >STEP-UP <RO)!POKE 
J,32 :NEXT!P0KES0+4,32 
1050 IFB=0THEN6000 
1060 RETURN 

1500 POKE53281,1 :FORJJ=SR <RO)TOJSTEP-UP< 
RO):POKEJJ,32 :NEXT:P0KE53281,8 
1510 P0KES0+4,32 ' GOTO2000 
1999 REM A HIT 

£000 PRINT"a” f LEFT$(AC$,X >;LEFT$<DN$,Y>; 

UH " 

2020 H IT=0 ! SC=SC+0 : PR INT"aMM" ' SC; "Il 

2024 Y = Y*08+30 ! X=X*08+20 !HI=0 ! IFX>250THE 
NH 1 = 1 : LO =X-251:GOTO2026 

2025 L0=X:P0KES0+18,128!P0KES0+18,129!P0 
KESO+ 15,35 
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I?26 P0KES0+18,128:POKESO +18,129:P0KES0 + 
15,35 

2327 POKE2040,192 :POKEV,LO :POKEV+16,HI:P 
3«EV+1,Y:POKEV +21,1 

2029 REM * EXPLOSION * 

2030 FORJ =0TO15 :FORE =0TO1 

2035 POKEV+29,E :POKEV+ 23,1 :POKEV +39 , J 

2040 FORK =0TO50:NEXT 

2350 NEXTE,J:POKEV+2 1,0 

2300 IFB = 0THEN6000 

2439 REM CHOOSE NAST1E 

2500 T = INT<RND < I >* 8 )+2 :Y=INT<RND< I )*24>+ 

1 :X=0 

2504 Y1=Y: X1=X:T1=TX 

2505 ONTGOTO0,2510,2510,2520,2520,2530,2 
532,2532,2534 

2510 1 ) = "flJK •• : A*< 2 )= “ j^M" :O=C20ANOT=2 

♦ <10ANDT=3):GOTO2540 

2520 1> = "flhJO " : A$<2 > = "^Q " : 0 = <25ANDT=4 

+ (10ANDT=5>:GOTO2540 

2530 1 ^"^S" : A*< 2 ) = ,, arru M :DE=0:O=30:G 

OTO2540 

2532 1 > = "aSR":A$< 2 ) = "flQP":0=<£5ANDT=8 

+(20ANDT=7): DE =0 :DI = -2 :GOTO2540 
2534 D I =0:OE=2 : 1 ) = »ai i » s - hji ! : q 

=20 

2540 PRINT"a" ; LEFT$<AC$,X);LEFT$<DN$,Y>; 
"■*;A$< 1 >; A*( 2 > 

2550 RETURN 

3000 REM THING FIRE 

3010 IFX=LXTHENRETURN 

3020 JJ=LY-Y:W=Y:MU=120:POKESO+ 4,32 :POKE 

SO+4,33:POKESO+5 ,15 

3030 FORII=XTOLXSTEP<LX-X )/20 

3040 W=Ul+JJ/£0: POKESO+ 1 ,MU:MU = MU-5: IFMU = 

<0THENMU=5 

3050 PRINT-'a";LEFT*<AC*,I I > ; LEFT* < DN* , Ul > 

; 

3055 PRINT"a";LEFT$<AC*,IJ) ; LEFT* < DN* , Ll- 
J J/20 ) ; " 11 : IJ = I 1 

3060 NEXTII 

3070 PRINT 11 a'/LEFT*(AC*,IJ> ; LEFT*<DN*,W- 
J J /20 > ; " •• 

3100 POKESO +4,32 : GOTO7000 
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3993 REM '0' OPTION 

4000 TX =TX-30 : TI =T1 -30 : PR INT " 

; TX ; " li " 

4005 IFTX<J THEN6000 

40 10 FOFG=7TO0STEP-1 

4030 F0KE55296+CE-1024,6 : NEXT 

4030 POKESO + 1,5! POKESO +4,32 '• POKESO +4,33 

4340 FORF = 1T08!FORG =1TO10'NEXTG 

4042 ONTGOSUB0,200,300,400,500,600,700,3 

00,900 

4044 NEXTF 

4050 FORG=0TO7:P0KE55295+CE-1024,6 : REM S 

OUND 

4052 NEXTG 

4060 P0KES0 + 4,32 '• RETURN 

5999 REM END OF GAME 

6000 POKESO+ 4,16 :POKESO+4,17 :POKESO+5,14 
60 10 FORG=0TO8:FORX =0TO8 

6020 POKE53280,G:P0KE53281,X 

6025 POKESO+1, 08*G:PRINT 

6030 NEXT s NEXT ’• POKE 198,0! P0KE5328 1 ,6 

6035 POKESO, 16 

6040 ppt NT " OVERMI 

iihiiiigse core = " ; se 
6045 IFSC < =HSTHEN6060 

6050 HS =SC!PRINT" 1BHELL DONE- A NEW HIGH 

SCORE !" _ 

6055 I NPUT " PLEASE ENTER YOUR NAME . "/* H* : F 

ORF =0TO1000 :NEXT:GOTO6070 

6060 PR I NT " gJffTHE HIGH SCORE IS ";HS;"POI 
NTS"SPRINT"BY " ; H$ 

6070 PRINT"IHHFRESS ANY KEY TO PLAY AGAI 
N. " 

6080 GETA*:IFA$=""THEN6080 

6090 P0KE53281,7 :PRINT"J":P0KE53281,6:RE 
M NOW SOUND 
6100 GOTO20 

6999 REM OUCH - LOSS OF LIFE ETC.. 

7000 L I =L I - H PR I NT » «IIIWMIM ' ; L 1 
7005 FOKEV+16,0:POKESO + 18,128 :POKESO + 18, 
129!POKESO+15,5 

7010 FORF=0TO15 :G= 15-F 
7014 FGRE-0TO1 

73 15 POKEV,160 SPOKEV+1,127 :POKEV+21 , 1 
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: ? FOKEV+39, G:P0KE53281,F:POKEV+23 , E :P 
'•E. +23,E :PQKE2040,192 
~017 FORJ =0TO5 : NEXT 
~?23 NEXTE,F 

10 PQKEV + 2 1 ,8 : IFL I =0THEN6000 

PRiNT'a"; left*<ac$,x-;left$:dn^,y); 

raai ■ 

f 

~060 P0KE53231,06 :GGTOS500 
~399 INI TI AL ISATION •; AND3 100 - , 

r-?-?0 RQRF= 1TO 1 £0 : FOKE 1024+RND', I .> * 1000,48 
:r£.XT 

5?39 REM * SOUND SET UP 

E 0 10 SO =54272 : F'OKESO + 24,15 

= 020 F0KES0+5, 1 5 : F'OKESO+6,0 

;C40 POKESO +19,10 

= 300 RO = 1 : REM ORIENTATIGLI 

"320 CE= 1024+500 :LY=12 :LX=£0 

SS*S0 S= 1024 : ST<8 ) =S+47 : ST\ 1 ) =S+99 : ST \£ .) = 

Si-Ti : ST < 3 > =S +5 19 : ST < 4 > =S +99 1 

:?50 STC5 > =S +973 :ST <6 >=S + 967 :ST(7)=S + 4S0 

: UP <3 > =4 1 : UP < 1 ) =40 : UP <2 ) =39 

= 360 UP < 3 ) = - 1 : UP <4 > = -4 1 : UP < 5 ) = -40 : UF' <6 ; = 

-33 :UP C 7 > = 1 

3 370 FOR I = 1T08 : SR I > =CE -UP < I ) : NEXT 
S380 CP <4 > =77 :CP <1>=66 :CP(2)=78 :CP <3)=67 
:FORI=5T08:CP < I )=CP <I-4):NEXT 
3500 TX = 500:B=100 :SC = 0 
3550 LI=5 :HIT = 0: V =53248 
8560 AC$=" 


3570 DN$= "HHHHHgig 
8600 PRINT"aasc: 0 
: 500 " 

3999 GOTO2500 
9000 PRINT"d" 


L I : 5 


SH: 100 


9002 POKE53280,4 : P0KE5328 1 ,6 : PR INT " ll»na 
MUCHESHIRE CATS AND OTHER NASTIES!" 

9005 PRINT"HBH PROGRAM DESIGN & SOFT 

WARE BY PAUL STANLEY 

9007 FORI=0TO2000:NEXT 

9010 PRINT"dMl THEY PLACED ME IN SPACE 
UJITHOUT ENGINES, JUST A LASER." 
9020 FRINT"H 1 SHOOT THE NASTIES’, THEY 
SAID - I’D LIKE TO SEE THEM DO IT. 
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3030 PR1NT"B TWIST LEFT WITH 1. RIGH. 
WITH 2, WEREMY INSTRUCiIONS. 

3040 PPINT" THEY TOLD ME TO BLAST 'EM W 
ITH 9, AND THAT IF I GOT INTO TROUBLE,"; 
9045 PRINT" I COULD PRESS 0. GOD ON 

LY KNOWS WHAT IT DOES.. 

3070 PRINT "MB. .PLEASE HELP ME...! 

P YOU'RE PREPARED TO, PRESS ANYKEY.. 


9080 GETA$:IFA*=" "THEN9080 

3100 P0KE53281,7:PRINT" :P0KE53281 ,6 

3110 RESTORE:PRINT"SPLEASE WAIT" 

9119 REM READ IN CHARACTER GEN 

9120 P0KE56334,PEEK<56334>AND254:POKE1,P 

EEK <1)AND251 

9130 FORI=0TO255:FORJ=0TO7 

3140 POKE14336+1*8+J,PEEK <53248+I*8+J> 

3 150 NEXTJ,I !POKE1,PEEK<1>0R4:P0KE56334, 

PEEK <56334)0R1 

9160 P0KE53272, <PEEK <53272>AND240>OR 14 
9169 REM NEW CHARACTERS - REVERSED LETTE 


9 170 FORI = 123T0149 :FOR J =0TO7:READD:POKE1 

4336+I*3+J,D:NEXTJ,I 

9 175 FORI = 12288T012350 :REAOO:POKEI ,0 : NE,. 
T: REM SPR1TE DATA IN 
9180 RETURN 

9133 REM DATA FOR USER DEF1NED NASTIES 

3130 DATA8, 8,42,42,42,42,42,62,0,13,36,7 

2,146,164,72,48,0,0,252,128,255,123 
9200 DATA252,0,48,72,164,146,72,36,18,0, 

62,42,42,42,42,42,8,3,12,18,37,73,18 

9210 DATA36,72,0,0,63,1 ,255,1 ,63,0,0,0, 1 

2,36,18,73,37,18,12,231,195,165,24,24 
9220 DATA 165,195,231,0,0,1,3,71,127,21,2 
1,0,0,192,224,241 ,255,84,84,31,63 
3230 DATA 102,127,93,8,0,0,252,254,51,255 
,221,136,0,0,0,0 

9240 DATA48,72,164,63,2,3,0,0,12,18,37,3 
4,64,192,3,7,11,17,18,32,32,132,192,234 
9250 DATA20S,136,72,4,4,3,123,192,160,14 

9260 DATA255,251,243,255,1 ,3,5,201 ,255,1 
91,159,255,127,96,96,48,56,23,15,3 
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9870 D9TAE54 ,6 ,6 , 1 E , £8,56 , £40,19£ 

59999 REM ** EXPLOSION ** 

50O0G DPTA0,16,0,0,£14,0,£,170,1£8 
60001 DATA 13,1£5,96,19,171,144,53,109,83 
6090E DATA47,£15,£3£,93,109,116,55,171,£ 
16 

60003 DATA93,199,1 16,18£,0,£ 18,93,199,1 1 
6 

60004 DATA55,171,£16,93,109,116,47,£15,£ 
3£ 

60005 DATA53,109,88,19,171,144,13,1£5,96 

60006 DATAE,170,1£8,0,£14,0,0,16,0 
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Corsa di trotto 


Corsa di trotto è un gioco a scommesse per più giocatori, nel quale 
sono in gara sei cavalli per un numero di corse da stabilirsi all inizio 

Prima°di 0 iniziare ogni corsa, sullo schermo compare il modulo di defi¬ 
nizione delle scommesse, completo di pronostici per ogni cavallo, do- 
ve per pronostico si intendono le probabilità di vincita di ogni cavallo 
in rapporto alle sue possibilità. 

A partire da 200 sterline, ogni giocatore può scommettere su un caval¬ 
lo per ogni corsa e vince chi termina la serie di giocate con la vincita 
più alta, il gioco può essere reso un poco più lungo, per ™®ttendo ai 
giocatori che perdono tutto di scegliere se accettare un offerta di 50 
sterline oppure di uscire dal gioco. 


0 DEF FNA <F)=RND <TI> *F 
1 POKE 53280,5!POKE 53281,5 :PRINT 
; :GOSUB 7000 SPRINT "J“; 

£ PRINT " IOU1 MftNY RACES UIOULD YOU LIKE T 
HERE TO BE AT THIS MEETING ?" 

3 INPUT RACES: IF RACES<=0 OR RACESOINTC 
RACES) THEN £ 

4 INPUT " |OW MANY PUNTERS ARE THERE" ì A : I 
F A<=0 OR AOINTCA) THEN 4 

5 DIM B<A> ,E<A> ,F<6>,H<6>,P<A>,X<6>sFOR 
C=1 TO A 

6 LET P <C)=£00 

7 NEXT C 

£0 PRINT "J";:GOSUB 1999 SPRINT "B"! 

100 FOR C =£ TO 1£ STEP £ 

105 PRINT MID$<C-OLOUR$,C/£ , 1 >;TAB<0> / LEF 
T$<DOWN$,C+ 1 >; C/£S " tf“ 

106 PRINT LEFT$<DOUIN$,C>;TAB<£> J " " 

107 NEXT C 

108 FOR X=1 TO 13:PRINT LEFT*<DOWN^,X+1) 

;TAB <32);" I":NEXT X 

109 PRINT LEFT^(DOWN$,14); "IH "SPRINT "a 
";TABC32>;"o“ 

110 LET A*="FINISH":FOR C=1 TO 6SPRINT L 
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I-~SCOOLN*, 14+0; TAB <3 1 >; A*<0 :next c 
: 15 FOR X=£ TO 14 STEP £:PRINT LEFT$<DOUl 
H*,X>;TAB<3:>; 

116 FOR Y=1 TO £9 :PRINT "—"} i NEXT Y:PRIN 
~:nc:xt X 

117 FOR X=1 TO 13 STEP £:PRINT LEFT$<DOW 
-S ,X + 1 > ; TAB (3£ > ; " H " : NEXT X 

:?00 LET X=£50:LET Y1=8:LET Y£=9?:GOSUB 
10000 :PRI NT "3";TAB<14>"READY" 

1001 LET X = £50 :LET Y1 = 11:LET Y£ = 48:G0SUB 
10000 :PRINT "3";TAB <14)"STEADY" 

1 00£ LET X =£50 : LET Y1 = 15:LET Y£ = £10:GOSU 
E 10000 :PRINT "3";TAB(14)"GO 

1003 LET X =£50 :LET Yl=£l:LET Y£=3l:G0SUB 
10000 :PRINT " 3 " ;TAB<14>" 

1004 LET GE =0 :FOR C = 1 TO 6 :LET X<0=4:NE 
XT C 

1005 FOR C=1 TO 6 

1006 LET X = .03 :LET Y1=3:LET Y£=35:G0SUB 

10000 :LET X = .03 : LET Y1 = 1:LET Y£=£05:GOSU 
E 10000 

1007 IF F < O = 1 AND FNA <1 )<.8 THEN LET X< 

0=X<0 + 1 

1008 IF F <C ) =£ AND FNA<1><.77 THEN LET X 

<0=X<0 + 1 

1009 IF F <C ) =4 AND FNA <. 1 > < . 74 THEN LET X 
<C>=X<C>+1 

1010 IF F(C)=8 AND FNA <1> <.71 THEN LET X 
<C>=X<C>+1 

1011 IF F(C) = 16 AND FNA <1)<.68 THEN LET 
X < C > =X < C > + 1 

101£ IF F(C ) =3£ AND FNA(1)<.65 THEN LET 
X<C)=X(C)+1 

1016 PRINT MID$(COLOURS / C, 1 >; LEFT$< DOLINA 
, C*£ + 1 ) ; TAB <X<C>-1>" ir" 

1017 IF X <C)=3£ THEN LET GE = 1 

1018 LET X =.03 s LET Y1=3:LET Y£=35:G0SUB 
10000 :LET X = .03 :LET Y1 = 1:LET Y2=£05:GOSU 
B 10000 

1019 NEXT C 

10£0 IF GE =1 THEN 1050 
1040 GOTO 1005 

1050 GOSUB 11000:PRINT LET MANY=0 

:FOR C=1 TO 6 
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1052 1F X<C>=32 THEN LET MANY=MANY+1 ! LET 
H <MANY> =C 

1053 NEXT C 

1054 IF MANY=1 THEN LET WI NNER =*H < 1 >: GOTO 
1090 

1055 PRINT LEFT*(DOWN*,21)/ " I HERE IS A P 
HOTO FINISH BETWEEN THESE HORSES:- 
105B PRINT LEFT$< DOLINA, 23 ) / TAB < 15 ) ; H < 1 > r 


" ; h < 2 ) ; 


IF MANY=3 THEN PRINT H<3>; 

IF MANY=4 THEN PRINT “ M ;H<4); 

GOSUB 11000 
LET ER =FNA(4 > + 1 
LET LII NNER =H <ER ) 

IF LII NNER =0 THEN 1067 
IF FNA C IX. 33 THEN LET G*="A SHORT 
HEAD":GOTO 1079 

1076 IF FNA <1)<.4 THEN LET G$="A NECK"•G 
OTO 1079 

1077 LET G$="1 LENGTH" 


1057 

1058 
1060 
1067 
1070 
107 1 
1075 


1079 PRINT "J"; 

1080 PRINT LEFT$< DOLINA, 2 1 > ; "THE LII NNER I 
S";WINNER;"LIHO NON BY H 

1081 PRINT LEFT$<00WN*,22> ;G$:GOSUB 1100 
0 


1082 PRINT "LI"; 

1085 GOTO 1100 

1090 PRINT LEFT$<DOWN*,£l >; "THE LII NNER I 

s H ; winner; "liho lion by“ 

1091 PRINT LEFT*(D0WN*,22X I NT<FNA<3>+2> 

;"LENGTHS GOSUB 11000 

1095 PRINT "J" ; 

1 100 FOR R = 1 TO A 

1101 IF P <R >=0 THEN LET R=R+i:LET SET=U 
IP R=H4l THEN LET SET=0sGOTO 1130 

1102 IF SET =1 THEN LET SET=0:GOTO 1101 
1105 IF E <R)=WINNER THEN LET P<R>*P<R>+B 
(R)*F < WINNER)•GOTO 1115 

1110 LET P<R)*P<R)~B<R> 

1115 IF P<RX=0 THEN 8000 
1117 IF E <R X >WINNER THEN 1125 
1120 PRINT " J" ;LEFT$< DOLINA,11>;" ELL 

DONE PUNTER";R; " ! * 

112 1 PRINT " PUR HORSE LiON AND YOU NOLI H 
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AVE £ " ; P CR > :GOSUB 11000:GOTO 1130 

1125 PR1NT "LJVLEFT^CDOWN*, 1 1 )f - BAD 
LUCK PUNTERVR) " ! " 

1126 PRINT " |OUR HORSE DID NOT WIN AND Y 
OU NOW HAVE" 

1127 PRINT ”£";P<R):GOSUB 11000 
1130 NEXT R 

1150 GOTO 20 

1999 LET RACES=RACES-1:IF RACES=-1 THEN 
6000 

2000 FOR C=1 TO 6 :LET F<C)*21CINTCRNOCTI 
)*6)>:NEXT C 

2020 PRINT " | HE TIPSTERS RECKON THE BETT 
ING : “ 

2025 FOR C=1 TO 6:PRINT MID$CCOLOUR*,C,1 

> ; "a" ; LEFT*<DOWN*,2*C+1 ) ; TAB (2 ) ; “ |r_J 9~ m 

• 

f 

2026 PRINT C; "Il " ; F < C ) ; "||: 1 ‘ 

2027 IF F < C ) = 1 THEN PRINT MID$CCOLOUR$,C 
, 1 ) ; LEFT$CD0WN$,2*C+1 ) ; TAB C 13 ) ; "/*9 

II 

2028 NEXT C:PRINT "■" ; 

2029 FOR F = 1 TO A 

2030 IF PCF)=0 THEN LET F =F +1 :LET SET=1: 
IF F =A +1 THEN LET SET=0:GOTO 2050 

2031 IF SET=1 THEN LET SET=0:GOTO 2030 

2032 PRINT LEFT*CDOWN$, 1 5 ) TAB C 1 ); "“JJNTER 

il • ET ■ » «il 

/ r / • 

2033 PRINT " 'lOU HAVE £ " ; P ( F ) ; " ||. 

:PRINT "HOW MUCH WOULD YOU LIKE TO BET?" 

2034 INPUT B <F ) : IF B<F)>P(F) THEN PRINT" 

□ inUilUWUGOTO 2034 

2035 IF B CF)< >INT<B CF)) THEN PRINT"□ 

2036 PRINT "EN UJHICH HORSE IS THIS TO BE 
PLACED?" 

2037 INPUT ECF) 

2038 IF ECF XI OR ECF) >6 THEN PR INT"Q 

IIUIIIIiailllH" ; : GOTO 2037 

2039 PRINT LEFT^CDOWN*,18); " 

2040 PRINT LEFT$CSPACE*,36) 

2041 PRINT " 

£042 NEXT F 

2050 PRINT " »J" ; : RETURN 
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6000 PRINT "| 1“ \-1 ->/l -s* STO I " 

6010 FOR F =1 TO A 

6015 IF P <F)=0 THEN LET F=F + 1 :SET=1 : IF F 
=A+1 THEN SET=0 '• GOTO 6040 

6016 1F SET =1 THEN SET = 0iGOTO 6015 

6020 PRINT " ~UNTER ";F;"FINISHES LIITH £" 
; P <F ) 

6030 NEXT F 

6040 PRINT "STRESS ANY KEY TO PLAY AGAIN 


6050 FOR A=1 TO 10:GET A$:NEXT 
6060 GET A$: IF A$="" THEN 6060 
6070 RUN 
7000 PRINT 

70 10 PRINT " I r-*~ 

7020 PRINT " HSB3 

MS" 

7030 PRINT "* GAMBLING GAME FOR THE LIHOL 
E FAMILY" 

7040 PRINT "MBS BY -AVIO IUCK AND “|. *T 


ANLEY" 

7050 COLOUR*="SEUtttST 


7055 down*= "assss 


S GJ Q U U U U U Q L U u U Q i-\! U U U 1 U 1 U >.< 


7056 SPACE*=" 

":SPACES^SPACE^+SPACE* 

7060 SOUND=54272 :FOR L=SOUNDTOSOUND+ 24 :P 


OKEL, 0•NEXT L 

7070 POKE SOUND +5,0 :POKE SOUND+6,240 :POK 
E SOUND+24,15 
7080 GOSUB 11000 
7090 RETURN 
8000 PRINT "ki! 

VOLI HAVE RUN OUT" 

8005 PRINT:PRINT 
ET YOU BET ANY 
8010 PRINT 
ALLORI 




|| UT TUT ! PUNTER " ; R ; ", 
PRINT "OF MONEY." 

-, MUST THEREFORE NOT L 
MORE. " 

IORJEVER,IF YOUR RULES ARE TO 
CHEATING,IF YOU PRESS 


8020 PRINT " LIILL GlVE YOU": PRINT "£50 M 
ORE . " 

802 1 PRINT "| THERUJISE PRESS AND -, Lil 

LL CANCEL YOU FROM THE GAME" 

8022 GET A* 

8030 IF A$="X" THEN LET P<R)=0:GOTO 8050 



Corsa di trotto 47 


= 340 IF «$="0" THEN LET P<R>=50:GOTO 805 
3 

=345 GOTO 8022 

3«50 PRINT "Li" ; : GOTO 1130 

>3000 POKE SOUND + 1 , Y1 !POKE SOUND,Y2 

10010 POKE SOUND +4,33 

10020 FOR J=1 TO X :NEXT J 

13030 POKE SOUND +4,32 

13040 RETURN 

11000 PRINT LEFT$<D0WN*,24>;" HIT 

A KEY TO CONTINUE" 

11010 FOR Q = 1 TO 10.-GET A$:NEXT 
11020 GET IF A$="" THEN 11020 
11030 PRINT LEFTSKD0UIN$,24 > ; LEFT$<SPACE$ 
,29 >; 

11040 RETURN 
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vigilia di Natale 


La vigilia di Natale è una lotta contro il tempo per il povero Babbo Na¬ 
tale, che deve affrettarsi a consegnare tutti i regali prima che gli abi¬ 


tanti della casa si sveglino. , . ^ 

spostando la slitta a sinistra e a destra, il giocatore può prendere ( re¬ 
gali a mano a mano che vengono lasciati cadere dai folletti e introdur¬ 
li nei camini usando il tasto M. Ogni volta che un regalo raggiunge a 
sua destinazione, gli abitanti della casa si svegliano e accendono la lu¬ 
ce provocando un abbassamento dello strato di neve, la quale si scio¬ 
glie ad una velocità che è proporzionale all'attività nella casa. Quindi 
più regali Babbo Natale riesce a consegnare e più in fretta deve muo¬ 
versi per completare il lavoro senza essere visto. 


1 rem ************************* 

2 REM * X-MAS EVE * 

3 REM * FOR CBM-64 * 

4 REM * BY * 

5 REM * DAVE PONTINO * 

6 REM ************************* 

7 P0KE52,43 J P0K.E56,48 s CLR 

10 HS=0:DIMD$<40> _ 

11 

12 G3SUB3000:GOSUB8000:GOSUB9300 
15 SK =.98=8=0 

20 A$ = "# " : B$= : C$ = '• X = 26 

21 FORT=07040:D$<T> = " ":NEXTT 

25 G=2:H=INT<RN0<1>*36)+2 

26 PRINT" MS" SPC(24)"HI SCORE"HS 

27 P=0 

26 FRINT"M3 PRESENTS"S 

30 KY=PEEK<197): 1FKY = 23THENX1=X-2 * < X < 37) 

:.:B$=.... 

35 IFKY= 12THENX1=X+2*<X>1 > 

• £ $ = •• w 

40 IFX1< >XTHENPRINTLEFT^(ftT$,11)SPC<X)" 

" : POK.EVO +18/ 129 

42 PRINTLEFT$<ftTS, 1 1 >SPC (X 1 )CHR$<28 ) A$CH 
R$<5)B*CHR^<28)C«:X=X1:P0KEV0+18,128 
50 IFP=0THENGOSUB200 

66 IFG=16THENIFPEEK <1664+H)=58THEN1000 
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65 IFG=16THENPRINTLEFT$(AT$,G>SPC(H>» 

: G =£ : H = I NT ( RND (1)*36 >+2 

70 IFP=1THENIFKY=60THENG=10:H=X+(A$="&"> 
-3* ( A*= "# " ) : P=0 
80 IFRND<1)>SKTHENGOSUB300 
30 GOTO30 

£00 PGKEVO+1,30-G:P0KEV0+4,33 

£05 G=G + 1 :PRINTLEFT$(AT$,G-1)SPC (H ) " " ; 

£ 10 PRINTLEFT$(AT$,G)SPC (H)") " ; 

££0 IFG =11THENIFH =X + 20RH =X +10RH =XTHENP =1 

£30 PGKEVO+4,0 

243 RETURN 

300 REM SNOW MELTS 

305 G=1NT(RND(1 > *9) + 1 :E=INT(RND(1> *4) 

310 PRINTLEFT$(AT*,20>SPC<Q*4-E+1>"3H ■" 
320 D*(Q*4-E)=“P" 

330 IFD$(G*4-3)="P"fìNDD$(Q*4-2)="P"ANDD$ 
(Q *4-1) = "P"ANDD$(Q*4) = "P"THEN2000 
349 RETURN 

1000 REM DOWN THE CHIMNEY 
1005 PRINTLEFT$(AT:$,G)SPC(H>” 

1010 IFPEEK(1864+H)=169THEN25 

1015 S = 3+1 :POKEVO+8,10 + S:FORTT =1TO50:POK 

EVO +11,33 :NEXTTT:POKEVO+11,32 

1020 PR INTLEFT$(AT$,£2 )SPC (H ) " 33') M" 

1025 F0RF=3T037STEP4: IFPEEK <1864+F)=169T 
HENNEXTF:SK =3K-.02 :GOSUB9300:GOTO20 
1030 G0T025 

2000 REM IS THERE A 'PRESENT' PRESENT 
2010 IFPEEK ( 1864+HX M69THEN6000 
2020 GOTO30 

2499 RETURN 

6000 REM END OF GAME 

6002 FORTT =10TO2STEP-.5 

6005 PRINTLEFT*(AT$,TT>SPC(X1>CHR*(28>A* 
CHR$(5>B*CHR$(£8 >C$:POKEVO+18,128 
6007 PRINTLEFT$(AT$,TT+1>SPC(XI)" 

6010 NEXTTT 

6015 PRINTLEFT$(AT*,2)SPC(X1)" " 

6020 IFS >HSTHENHS=S 

6025 PRINTLEFT*(AT$,G>SPC(H)" 

6030 PRINTLEFT*(AT#,22)SPC(Q*4-1)“al - " 
6035 PRINTLEFT$(AT$,10)9PC(15)"flSSAME OV 
ER" 
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6040 PRINTSPCC6)CHR*<8) “MBKFREISS ANY K 
EY TO PLAY AGAINB" 

60B0 POKE198,0:FORT =1TO1000 :NEXTT:POKE19 
8 ,0 

6070 XX = -1 :GOSUB11042 :GOSUB9300: GOTO 15 
8000 REM -WUCTIONS 

8010 PRINT"JSttl CHR I S T M A S 

E V E" 

8020 PRINT"HIT IS APPROACHING M1DNIGHT O 
N CHRISTMAS EVE AND SANTA IS LATE."; 

8030 PRINT"YOU PLAY THE PART OF SANTA AN 
D YOU MUST DELIVER PRESENTS"; 

8040 PRINT" WHICH ARE THROWN DOWN TO YO 
U BY YOUR ELVES." 

8050 PRINT "Hi HAVING CAUGHT A PRESENT < 

BY FLYING DIRECTLY BELOW IT 

8060 PRINT" YOU MUST MOVE OVER A CHIMNE 

Y AND DROP A PRESENT DOWN IT.B" 

8070 PRINT" WHEN A PRESENT HAS BEEN DROP 
PED DOWN A CHIMNEY THE FAMILY IN THAT"; 
8080 PRINT" HOUSE START TO OPEN UP THE P 
RESENT IMMEDIATELY AND THEY WILL 
8090 PRINT"TURN THE LIGHT ON." 

8095 PRINT"S DROPPING A PRESENT DOWN A C 
HIMNEY OF A LIT HOUSE WILL NOT COUNT." 
8100 FRI NT " USI d PRESS ANY KEY TO CON 

TINUE " 

S105 GOSUB11000 

3 110 PRINT "LHIH CHRISTMAS 

E V E" 

8120 PRINT"» BENEATH EACH ROOF YOU WILL 
SEE A PATCH OF SNOW "; 

8130 PRINT"WHICH SLOWLY MELTS AT A RATE 
IN PROPORTION TO THE 
8140 PRINT"ACTIVITY IN THE HOUSE." 

Sl50 PRINT"H AS THE PRESENTS MUST BE P 
LACED DOWN THE CHIMNEYS BEFORE “5 
8160 PRINT"ANYONE SEES YOU,IF ALL THE 
SNOW HAS MELTED UNDER A ROOF 
8170 PRINT" W1THOUT A PRESENT BEING DRO 
PPED BEFORE THIS OCCURS IT WILL "i 
8180 PRINT"INDICATE THAT THE INHABITANT- 
S ARE AWAKE AND YOU WILL HAVE " ; 

8190 PRINT” TO RETURN IMMEDIATELY." 
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S200 PRINT"IM Z.LEF 

T" 

8210 PRINT" X.RIGHT 

• 

8220 PRINT" SPACE.DROP 

P RESENT" 


8230 PR INT"m a PRESS ANY KEY TO START 
THE GAME B“ 

8800 GOSUB11040 

8850 P0KE53272,<PEEK<53272>AND240>+12 
8399 RETURN 

3000 REM DEFINE CHARACTERS 
3005 P0KE53265,PEEK <53265 >0R64 
9010 P0KE56334,PEEK<56334)AND254 
9020 POKE1, PEEK <1>AND251 

9025 FORI=0TO511 :POKE12288+I, PEEK <53248 + 
I)SNEXTI 

9030 FORI=0TO7:POKE12288+8*32+1,0:NEXT 
9035 FORI=0TO7:POKE12288+8*31+1,255:NEXT 
9040 FORI=0TO8* 11 -1 : READA :POKE12568+I,A: 
NEXT 

9050 POKE1,PEEK <1>0R4:POKE56334,PEEK <563 

34)OR 1 

9070 RETURN 

9300 PRINT"Ì.JS" s POKE53280,0 :P0KE53281,0 
3305 P0KE53282,0 :P0KE53283,2 :P0KE53284,0 
9307 FORX = 2T034STEP4 
9310 PRINTLEFT$<AT$,17)SPC <X + 1)": " 

9320 PRINTLEFT$<AT$,18)SPC <X+1)"B*+" 

9330 PR INTLEFT$< AT$, 19 >SPC <X )"*♦-«-+ " 

9340 PRINTLEFT$<AT$,20)SPC <X)"3H,,,,■" 
9350 PRINTLEFT$<AT$,21)SPC <X)"3++++" 

9360 PR INTLEFT$< AT$,22 >SPC <X ) 

9370 PRINTLEFT$<AT$,23)SPC<X> ,, «-♦-+-«- ,, 

9330 PR INTLEFT*'< AT$,24 >SPC <X ) " +-«-+-+-" 

9390 NEXTX 
9499 RETURN 

10000 DATA0,0,1,0,0,0,0,0 

10010 DATA 192,64,160,224,127,126,99,82 

10020 DATA8,28,8,124,156,72,63,128 

10030 DATA 16,56,16,62,56,18,252,1 

10040 DATA3,2,5,7,254,126,198,74 

10050 DATA0,0,128,0,0,0,0,0 

10060 DATA0,0,0,54,54,0,54,54 
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10070 DATA0,1,3,7,15 ,3 1 ,63,127 
10080 DATA0,128,192,224,240,248,252,254 
10080 DATA255,220,73,65,64,0,0,0 
10099 DATA24,60,36,60,24,126,255,255 
11000 REM TUNE 

11005 VO =54272 :W1=32 :P0KEV0+5,13 :POKEVO + 
6,123!POKEVO +24,15 

1 1007 POKEVO+12,9! POKEVO +13,246! U12 - 16 

11009 POKEVO + 19,9!POKEVO+ 20,129 !POKEVO+1 

5,20 

11010 FORT =1T08:READL <T),H(T>:NEXTT 
11020 FORT=1T07: READN(T):NEXTT 

1 1030 V1 =PEEK <63 >!V2=PEEK<64):V3=PEEK<65 
>:V4=PEEK<66) 

11040 READXX, YY 

11042 IFXX=-1THENP0KE63,V1 :P0KE64,V21POK 
E65,V3:P0KE66,V4:G0T011040 
1 1045 POKEVO,H(XX)!POKEVO+1,L <XX) 

11047 POKEVO + 7,H(XX)+22 :POKEVO +8,L(XX) 

11050 POKEVO+ 4,W1 + 1 « POKEVO+11,W£+1 

11052 FORTT=1T025:NEXTTT 

11055 POKEVO+4 ,UI1 ! POKEVO + 1 1 ,W£ 

11060 FORTT=lTON<YV)/£!NEXTTT 
11070 GETA*:IFA*<>""THENRETURN 

11080 GOTO 11040 

12010 DATA 19,63,21,154,22,227,25,177,28 

,214,32,94,34,75,38,126 

12020 DATA 100,137,225,350,475,725,825 
12030 DATA6,1,6,1,6,3,6,1,6,1,6,3,6,1,8, 

1,4,1,5,1,6,5 «e 

12040 DATA?,1,?,1,7,1,7,1,7,1,6,1,6,1,6, 

1.6.1.5.1.5.1.6.1.5.3.8.3 

12050 DATA6,1,6,1,6,3,6,1,6,1,6,3,6,1,8, 

1,4,1,5,1,6,5 

12060 DATA?,1,7,1,7,1,7,1/7,1,6,1,6,1,6, 

1.8.1.8.1.7.1.5.1.4.3.4.3 

12070 DATA4,1,5,1,4,3,2,3,7,3,5,3,4,7 
12080 DATA4,1,5,1,4,1,5,1,4,3,7,3,6,7 
;£090 DATA3,1,4,1,3,3,1,3,6,3,5,3,4,7 
12095 DATA4,1,5,1,4,1,5,1,4,3,5,3,2,7 
12100 DATA4 , 1,5,1,4,3,2, 3 , 7,3,5,3,4,7 
12110 DATA4,1,5,1,4,1,5,1,4,3,7,3,6,7 
12120 DATA3 , 1,4,1,3,3,1 , 3 , 6 , 3 , 5,3,4,7 
12130 DATA4,1,5,1,4,1,5,1,4,3,8,3,7,7 
1 2 140 DATA-1,- 1 ,“1 
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’.e gioco dell'ape il giocatore deve controllare un piccolo uccello, il 
d^ale ha il compito di beccare lo stelo di una fila di piante impeden¬ 
done la crescita verso il bordo superiore dello schermo, infatti, se una 
z-aisiasi di quelle piante raggiunge l'altezza massima dello schermo, 
-~a piccola ape cade nel suo fiore, ne succhia il nettare il giocatore ha 
perso. 

. uccello può essere mosso da sinistra a destra con i tasti z e X e viene 
-arto beccare con il tasto M, senza pera poter beccare lo stesso stelo 
due volte di seguito. 


10 REM **BUZZY BEE BY PAUL ROPER 
20 REM * * IDEA BY PAUL STANLEY 
30 GOSUB1000:REM INSTRUCTIONS 
40 GOSUB2000: REM SOUND & GRAPHICS 
50 DATA 1947,1952,1958,1962,1968,1974,19 
80 

55 FORA =1T025:PRINT"U 

* ; :NEXT 

S0 FORT=1T07:READP < T >: POKER<T>,42:NEXT 

6 1 DATA , •• ^ ■ , "-o-" , ^-o 

J " , " —O—" , " r C H " , "* H 

62 FORA=1T08: READ BS<A):NEXT 

66 FORA =56256T056£95:POKEA,1 :NEXT 

70 TI$ ="000000":M=£000:B=1: V = 1:DL=.45:FT 

=0 :DD = 0 

80 GOSUB3000: REM MOVE BEE 
90 GOSUB4000:FT=1 : REM REM MOVE AXEMAN 
95 GOSUB6000 : REM GROLi PLANTS 

100 IF DD < >1THEN80 

101 POKE54273,50:FORA=1TO20:P0KE54276,65 
:FORF =1TOS:PRINT"9" TAB(B >B^<F) 

102 NEXT:P0KE54276,64:NEXT:P0KE54273 ,10 

110 PR INT " : M$ = "GAME OVER.": GOSUB 

5000 

120 M$="ffiJTHE BEE HAS FINALLY GOT HIS NE 
CTAR":GOSUB5000 

130 MS="YOU HELD OUT FOR "+STR$<INT<TI/6 

0>>+" SEC0ND3.":GOSUB5000 

135 FORA=ITO 10 :GETA$:NEXT:REM EMPTY BUFF 

ER 
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140 FRINT"RESS SPACE TO PLAY A6AIN" 

150 GETA*:IFA$<>" "THEN150 
160 RUN50 

1000 PRI NT " BUZ2Y - BEE SBH" 

1010 PRlNT"OA GIANT BEE LIKES NECTAR FRO 
M GIANT" 

1020 PRINT"FLOWERS,BUT YOU HAVE TO STOP 
IT BECAUSE" 

103P PRINT"YOU LIKE NECTAR AS WELL.CHOP 
CHUNKS OUT" 

1040 PRINT"OF THE STALKS W1TH THE SPACEB 
AR AND“ 

1050 PRINT"USE ’>' & ’<’ TO MOVE RIGHT A 
ND LEFT" 

1060 PR I NT " BUT NOTE THAT YOU MUST SUCC-ES 
I VE PIECES" 

1070 PRINT"OUT OF DIFFERENT STALKS.HOW L 
ONG CAN" 

1080 PRINT"YOU KEEP THE FLOWERS TOO LOW 
FOR HIM TO" 

1090 PRINT"GET AT ?":RETURN 
2000 REM UDGS 

20 10 P0KE56334,PEEK <56334 )AND254:POKE1 ,P 
EEK ( 1 >AND25 1 

2020 FORA=0TO703:POKE12288+A,PEEK <53248 + 
A ) : NEXT 

2030 POKE1, PEEK<1)0R4:P0KE56334,PEEK <563 
34)OR 1 

2040 READA*:IFA$<>"*"THEN2040 

2045 P0KE53272,CPEEK(53272)AND240)+12 

2050 READCR*IFCR*-1THEN2500 

2080 FORA =0TO7 * READCO s POKE12288 +CR*8 + A,C 

D sNEXTs GOTO2050 

2062 DATA 102,49,30,216,59,30,24,48,48 

2063 DATA42,195,189,66,90,90 *66,189,195 

2064 DATA35,60,60,24,255,24,24,36,66 
2070 DATA -1 

2500 REM SET UP SOUND 

2510 FORA =54272 TO 54300 :POKEA,0 :NEXT 
2520 P0KE54296,15 

2530 P0KE54272,10 :P0KE54273,10 s P0KE54275 
, 15 

2540 P0KE54277,12 

2550 P0KE54279,30 :POKE54280,30 :P0KE54284 
,8 
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2555 FORT=ITO 10 :GETA*:NEXT 

2560 PRINT" jfglBPRESS SPACE TO START" 

2570 GETA$: IFA$< >" "THEN2570 

2575 RESTORE 

25S0 RETURN 

3000 REM MOVE BEE 

3005 FRINT" gH"TAB < B ) " 

3006 P0KE54276,64:POKE54276,65 

3007 F=F+1 : IFF=9THENF=1 

3010 B=B+V: IFB = 1 OR B=37 THENV = -V 
3020 PRINT"S3"TAB<B)B$(F) 

3030 IFPEEK <1065+B > < M2THENRETURN 
3040 DD=1 .'RETURN 
4000 REM MOVE AXEMAN 

4010 K =PEEK<197 >: IFK=64ANDFTTHENRETURN 
4012 I FK = 60THEN4600 
4015 POK EM,32 

4020 I FK = 47THENM = M-1 : IFM<1985THENM=1985 
4030 IFK = 44THENM=M+1 : IFM>2021THENM=2021 
4040 POKEM,35 
4050 RETURN 

4600 IFPEEK CM-40 > < >102THENRETURN 
4610 RESTORE:PN=0 

46 15 P0KE54233^128 :P0KE54283,129 
4620 FORA=1T07:READE: IFE =M-40THENPN=A 

4630 NEXT: IFPN=LMTHENRETURN 

4631 LM=PN 

4632 POKEP <PN>,32 :P <PN>=P <PN> +40 

4640 POKEP (F'N) ,42 : P0KE54272 +P (PN> , 1 : RETU 
RN 

5000 FORA=ÌTOLEN(M^):PRINTMID$(M$,A,1>;: 

FORT=1TO30:NEXTT,A :PRINT:RETURN 

6000 REM GROU PLANT3 

60 10 IF RND <1 j <DL THENRETURN 

602e PN=INT<7*RND( 1 > + 1 ) :POKEP <PN>,102 : PO 

KE54272+P CPN>,5 

6025 IF F' ( FN> < 1 104THENPOKEP ( PN ) , 42 ! RE TUR 
N 

6030 P<PN>=P(PN)-40 :POKEP<PN>,42:P0KE542 
72 +P < PN >,1 
6040 RETURN 
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L'elicottero bombardiere 


Dopo tante guerre intergalattiche, vi farà piacere ritornare sulla Terra 
a lottare con una squadriglia di elicotteri i cui piloti hanno il compito 
di radere al suolo la vostra città. 

Fortunatamente avete il controllo della torre laser e avete la possibi¬ 
lità di abbattere le bombe prima che esplodano sulla citta. Ad ogni 
bomba colpita corrisponde un punto e anche se potete cancellare per 
sempre l'arma, se vi sentite in grado di farlo, non otterrete alcun risul- 

ll raggio distruttivo viene mosso con i tasti Q, A, M e N e il gioco ter¬ 
mina quando una delle bombe riesce a raggiungere il suolo o quando 
viene distrutta la torre di difesa. 


0 HS = 0 : POKE650,128 : REM AUTO REPEAT ON AL 
L KEYS. 

10 IFPEEK <56)< >48THENGOSUB3000:GOTO20 
15 GOSUB9530 

20 DIMSDM<£4,2 1 > : SL$= "HHHHHHHfiMHHHHSBSMHH 

wwimnOTW ' 1 : CL$= " 

30 BDY.=0 : SC = 0 : HE =0 : EN7.=0 : GOSUB20000 
40 FOK.E53280 ,0‘> P0KE5323 1,0 

50 pp T MT " aJMMMM 3 DO YOU DA NT INSTRU 
CTI QMS? (Y./N) ■" 

60 LIA ITI98 , 15SGETAT: IFA* = " Y "THENG0T0G3 

61 IFA£-"N"THEN100 

62 G0T060 

63 GOSUB10000 

100 GOSUB1000 :GOSUB1150 :GOSUB2270 
110 IFPEEK <133 > >1THENPOKE138,1 
1 1 1 DX=0:DY = 0:GETA*:GOSUB2 1000 
120 T F A $ = " Q : THEND r” = - 1 
130 IFAf-"A"OR A$ ="♦"THENDY=1 
140 IPAT="N"ORAT="/"THENDX = - 1 
1 50 IFA*= " M ’’ ORA^ = "V THENDX = 1 
16C IFA^-" "ORA^ 3 " "THENGOSUB1700 
170 303UB21000 :GOSUB1200:GOSUB1308 
183 G0SUB2 1000 ! IFBD7.=3ANDRND( 1 ) > . 35THENB 
□ 7=1 :BX=HX:6Y=HY+2 

190 IFBD7= 1 THENGOSUB 1400 : IFEN7.= 1THEN1 100 
0 

200 PRINTLEFT*<SL$,13);SPC(19):PRINT"3*" 
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398 G0SUB21000:GOSUB1600 
339 GOTO 1 10 

1000 REM *** BUILD TOWN 
Pie FRINT" J" :FORN=0TO39 
1O20 H = INT(RND<1)#5 )+20 

1-330 PRINTLEFT$<SL$,H);TAB<N>; :PRINTMID$ 
CL*,RND<1>*7+1,1>; 

1040 FORX = HT024 

1050 F'RINTCHR$< 165) "US"; : NE X T : NE X T 

1100 REM *** BUILO LASER TOWER 

1110 PRINTLEFT$<SL*, 18);TAB< 19); "JMOI 11 ; 

1120 FORX =1T06:PRINT"X2M" ; : NEXT 
1130 RETURN 

1150 REM *** INITIAL 1 SE SIGHT POSITION 

1160 SX=1S:SY=10 

1200 REM *** PRINT SIGHT 

1202 PR INTLEFT*<SL* ,SY+ 1 ) ; SPC <SX>; " " ; 

1210 SY=SY+DY:SX=SX+DX 

1211 IF3X >39THENSX=0 

1212 IFSX <0THENSX=39 

1213 IFSY<2THENSY=17 

1214 IFSY >17THENSY=2 

1230 PRINTLEFT$<SL$,SY+1); SPCCSX); "3+":R 
ETURN 

1300 REM *** MOVE HELICOPTER 

1310 PRINTLEFT$<SL$,HY+1);SPCCHX-1 ); " 

!»■! 

1320 HX = HX +I NT < RND < 1)*2) + l: IFHX>37THENHX 
= 1 

1330 HY = HY +INT < RND <1)*3)- 1 : IFHY >15THENHY 
= 15 

1340 IFHY < 2THENHY=2 

1350 PR INTLEFT$(SL$,HY+ 1 ) ; SPG <HX ) ; " a|_fili 

■Il ; :FORQQ =1T03 

1351 PRINTCHR*<160+QQ);:NEXT 
1360 RETURN 

1400 REM *** BOMB ON WAY ! 

1410 PRINTLEFT*<SL*,BY+1>;SPC<BX);" " 

1420 P =PEEK<1064+BX+ < 40 *BY)): IFP< >32ANDP 
< >43THEN 1450 

1430 BY = BY +1 : IFBY>23THENENM=1 : RETURN 
1440 FRINTLEFT$(SL$.BY+1 );SPC(BX); "H" ; CH 
R$(. 164); 

144 1 P0KE54284,241 :P0KE54233,17 :P0KE5428 
0,(30-BY)*8 : RETURN 
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1450 REM *** BOMB HIT SOMETHING ! 

1451 P0KE54296,0 :P0KE54283,0 
1460 IFP=81THENEN*/.= 1 

1470 FORM=15TO0STEP-1 :PRINTLEFT*(SL$,BY + 
2>;SPC<BX>;CHR$<164); 

1480 PRINTLEFT$(SL$,BY+2>;SPC<BX>;“ 

1481 P0KE54296,M:P0KE54284,15 :POKE54280, 
40 :P0KE54279,200 :P0KE54283,129 :NEXT 
1490 BD%=0:P0KE54283,0 : RETURN 

1600 REM *** UPDATE SCORE LINE 
1610 PRINT"aS SCORE =";SC;" HELECOPTERS 
DESTROYED = " ; HE 
1620 RETURN 

1700 Y=18-SYS X=SX-19 

1701 FORV =15TO0STEP- 1.5 

1702 P0KE54296,V:P0KE54284,15 :POKE54280, 
40 :P0KE54279, 200 :P0KE54283,129 :NEXT 

1703 P0K.E54283,0 
17 10 IFX =0THEN1800 

1720 M=Y/X s FORY = 16T03STEP - 1 :HY7.=Y 
1730 HXV.= 19 + (. <. 18-HYM)/M) J GOSUB2000 
1735 IFHX7.< 1ORHXX>39THENY=2 : GOTO 1760 
1740 PR INTLEFT$<SL$,HY'/.+ 1 ) ; SPC <HX7.) ; "U* " 

r 

1750 PR INTLEFT$<SL*,HY7.+1 ) ; SPC CHXJO ; " " ; 

1760 NEXT:POKE198,05 RETURN 

1800 HX/.= 19:F0RY= 16T03STEP-1 : HY*/.=Y : GOSUB 
2000 : GOTO 1740 

8000 REM *** HIT SOMETHING? 

20 10 XY = PEEK ( 1024+HX7.+ <40*HY7.) ) 

2020 IFXY=320RXY=43THENRETURN 

2030 IFXY=970RXY=980RXY=99THEN2100 

2040 FORV =10TO1STEP-1 :PRINTLEFT$<SLS,BY + 

1 ) ; SPC <BX > ; " *M " ; JGOSUB22000! NEXT 
2070 SC = SC+ 10 : GOSUB 1600 : BD*/.=0 : RETURN 
8100 REM *** HIT HELECOPTER 

8 10 1 P0KE54276,0 :P0KE54277,0 :P0KE54272,0 
2102 P0KE54276,33 

2 120 PRINTLEFT$(SL$,HY+1 );SPC <HX-1);" 

■ 

2 130 P=1023+HX+(40* <HY + 2)): IFPEEK <P >< >32 
ANDPEEK <P)< >100HNDPEEK<P > < >43THEN2200 
2131 IFPEEK<P+1><>32ANDPEEKCP+1><>100AND 
PEEK(P+1>< >43THEN2200 



L'elicottero bombardiere 59 


£132 IFPEEK (P+2)< >32ANDPEEK <P+2 > < >100AND 
PEEK(P +2 > <>43THEN2£00 

2 140 HY=HY +1 :PRINTLEFT$ < SL$,HY +1),*SPC(HX 

> ; _ “ 

2 150 PR INTSPC: < HX - 1 >; : P0KE54277,255 

:P0KE54273,<30-HY> *8 :G0TO2120 
£200 HE =HE + 1 

22 10 FORV =15TO0STEP-.5 :GOSUB22000 
2220 PRINTLEFT*<SL$,HY+£>;SPC<HX-1>;"3** 
♦ " 

£225 PR I NTLEFT^( SL$ , HY + 2 ) ; SPC ( HX - 1 > ; "n\| 

£230 NEXT:PRINTLEFT*(SL$,HY + 2);SPC <HX-1) 
;.P0KE54283,0 

£240 PRINTLEFT$<SL$,HY+3>;SPC<HX-1>;" 

■ ; :GOSUB1600 

2270 HX =0 :HY =INT(RND<1>*15 > +2 : GOTO 1320 
9000 PR INT " SETTING UP GRAP 

HICS - PLEASE U1AIT. ■" 

800 1 P0KE56,48 :P0KE52, 48 :POKE1,55 

8002 GOSUB9500 

8003 Q=0:RESTORE 

8004 READA: IFA = - 1THENRETURN 

3005 PGKE13064+Q,A:Q=Q+1: GOTO9004 

9010 DATA0,192,112,63,15,3,0,0,1,31,60,2 

54,255,255,8,127 

90 11 DATA 128,£40,136,108,£52,£43,34,252, 
60,60 ,24,60,60,60,60,24 

9012 DATA255,153,255,153,255,153,255,153 
9499 DATA- 1 
3500 CS=12288 

9510 P0KE56334,PEEK<56334>AND£54 
9520 POKE1 ,PEEK( 1>AND251 
9530 FORI=CSTOCS+2047 
9540 POKEI,PEEK(53248+I-CS> 

9550 NEXTI 

9560 POKE1,PEEK<1>0R4 

9570 P0KE56334,PEEK(56334>OR1 

9580 P0KE53272,(PEEK<53272>AND240>+12 

9590 RETURN 

10000 REM INSTRUCTIONS 

10010 PRINT" k J»3 H E L I -BOMBE 

r s ! ser 

10020 PRINT" YOUR CITY IS BEING ATTACK 
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ED BY HEL1C0PTER BOMBERS. 

10030 PR 1 NT " U1HEN A BOMB HAS A CLEAR PATH 
THROUGH TO THE GROUND, OR WHEN YOUR " ; 
10040 PRINT"LASER TOWER IS DESTROYED, T 
HE GAME ENDS.M" 

10050 PRINT"MOVE YOUR LASER SIGHT USING 
•Q 1 TO GO UP‘A‘ TG GO DOWN, 1 M 1 TO GO"; 
10060 PR1 NT" RIGHT AND ‘N* TO GO LEFT. T 
0 FIRE YOUR LASER, FRESS" 

10065 PRINT"THE SPACE BAR." 

10070 PRINT"THE OBJECT OF THE GAME IS TO 
PROTECT THECITY BY SHOOTING DOWN THE"; 
10080 PRINT" BOMBS BEFORE THEY REACH TH 
E BUILDINGS." 

10090 PRINT"M 3 PRESS ANY KEY TO S 

TART. ■ " 

10091 WAIT198,51!GETA$: RETURN 
11000 REM END OF GAME... 

11010 PRINT"JMS 3 G A M E 0 V 

E R ! HKK3" 

11020 PRINT" A BOMB HAS PENETRATED YOU 
R DEFENSES.BBfl" 

11030 PRINT"YOU DESTROYED "HE" HELICOPTE 
RS , AND HI" 

11040 PRI NT"SCORED "SC" POINTS.HH" 

11050 IFSC<=HSTHEN11030 

11060 PRINT" a THAT 1 S A NEW HIGH SC 

gre • 

11070 PRINT"THE OLD HIGH SCORE WAS "HS" 
PO INTS. ":HS = SC 

11080 PRINTSLS" a DO YOU WANT TO PLAY 

AGAIN? <Y/NV; 

11090 WAITI98,15:GETA$:IFA$=“N"THENP0KE5 
4296,0 : END 

11095 IFAS<>"Y"THEN11090 

11096 GOTO30 

20000 FORM=ITO 10 
£0005 PR I NT " " 

20009 F0RN=1T08!PRINTMID*<CL*,N,1); "H 
3HELI - BOMBERS! ! 

£00 10 NEXT:PGKE53280,RND <1 )*255 :P0KE532S 
1,RTD (1)*255 :NEXT 
20020 RETURN 

£1000 REM HELECOPTER SOUND 


L'elicottero bombardiere 61 


2 1001 P0KE54276,0 :P0KE54S77,0 :P0KE54272 , 
0 

21002 P0KE54276,129 

21010 P0KE54296,15 :P0KE54277,84 

21020 P0KE54273,10 :P0KE54272,255 :P0KE542 

~"G ,33: RETURN 

22000 P0KE54283,0 

22001 P0KE54296,V:P0KE542S4,15 :POKE54280 
.40 :P0KE54279,200 :P0KE54283,129 

22002 RETURN 
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Cane pastore 


Non c’è modo di venire a capo: le pecore sembrano non voler capire, 
il recinto al centro dello schermo è abbastanza grande da contenerle 
tutte, ma quelle disgraziate non vogliono saperne di ubbidire. Il vostro 
fedele cane pastore, Jim, cerca di fare del suo meglio, ma ha bisogno 
di un fermo controllo da parte vostra che dovete dimostrare una no¬ 
tevole abilità nell'usare i tasti di controllo del cursore. Come nella vita, 
anche qui il tempo trascorre inesorabile e in questo gioco, insolita¬ 
mente arduo, vi sarà facile perdere, se non riuscite a chiudere tutte le 
pecore nel recinto entro i secondi concessi. 

0 pp T NIT " LEfìSE UIAIT !" 

1 REM* * ******************************* 

2 REM* * 

3 REM* CONVERTED BY DAVE HODGKINSON * 

4 REM* FROM A PROGRAM BY * 

5 REM* ROBERT ERSKINE * 

G REM* * 

7 REM********************************* 

10 GOSUB6000 

20 GOSUB5000 
30 GOTO 180 

50 PP1 MT " r " >" ;:P 

R INT 

5 1 FOR I = 1T04 : PR I NT " IIIMllllil I I 

" ; :PRINT:NEXT1 

52 PR I NT " UUmiBUUU - 1 " 

55 P RINT" ^1***************************** 
***********"; 

56 FOR I = 1 TP20 : PR 1 NT » *>«■■—»»»»»■»»»! 

1 —■— —»—» " ■ : next I 

57 P RINT"******************************* 
*********k"; 

61 RETURN 

100 P=PEEK<197>: IFP=60THENRETURN 
110 SYSPR r DX, OY," ":ZZ=TL+DX+40*DY 

120 IFP=47THEN1FPEEK(ZZ-40)=32THENDY=DY- 
1 

130 IFP=55THEN1FPEEK <ZZ + 1)=3£THENDX=DX+1 
: DD= 1 

140 IFP =12THENIFPEEK <Z Z-1)=32THEN0X=DX-1 
: DD=2 
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150 IFP=£0THENIFPEEK (ZZ + 40 )=32THENDY=DY+ 

I 

160 3YSPR,DX,DY,CHR$<90 + DD >: RETURN 

180 T=1 

181 GOSUB50 : SC = 0 

186 S<1,1>=3:S(1,£>=15:S<2,1>=3:S<£,£>=1 
6sS(3,l>=4:S(3,£>=15:S(4,l>=4:S(4,2>=16 
130 SYSPR,0,23,"PLAYER";T; 

200 FORZ = 1T04:SX=S(Z,1>:SY = S(Z,2 >: GOSUB1 
00: IFP =60THEN3000 

230 IFRND(TI)<.25THEN3X=SX+SGN(RNO(TI)-. 
5ì:SY=SY+SGN(RND(TI> - . 5 > 

290 E=(ABS(DX-S(Z,1)))/10 :F=(ABS(DY-S(Z, 
2>)>/10:G=S(Z,l)-DX:H=S(Z,£>-DY 
300 Q = RND(TI): IFQ >EANDQ >FTHENSX=S(Z, 1 > +S 
GN(G):SY=S(Z,2>+SGN(H> 

340 RR = -2*(H>0)-(H<0)~(RND(TI)*£+l>*(H=0 

) 

350 SYSPR,S(Z,1),S(Z,2),” " 

360 IFPEEK(TL + 40 *SY+SX > =32THENS(Z,1>=SX: 
S(Z , 2 > =SY 

380 SYSPR,S(Z,1),S(Z,2),CHR$(92+RR>:NEXT 
Z 

510 SC=SC+1 : SYSPR, 20,23, "SCORE HUI ’ 
150-SC; IIIHI" • : IFSC= 150THEN3000 
520 GOTO200 

530 T=T+1: IFT = <ATHEN181 

2000 PRINT"J" 

2005 SYSPR,12,0,"RESULTS“ 

2010 PRINT:PRINT:FORX = 1TOA 
2020 PRINTTABO); "PLAYER"X,P(X>:PRINT 
2030 NEXT 
2035 GOSUB4000 

2040 PRINT"PRESS ANYKEY TO RESTART" 

2045 FORI = ITO 11 :GETA$:NEXT 
2050 GETA$:IFA$ ="“THEN2050 
2060 GOSUB6320:GOTO 180 
3000 SYSPR,15,10, 

3002 P(T> = 150-SC 

3005 CH =0 

3010 F0RXX=1T04 

3020 IFS(XX,1> >10ANDS(XX,1)<20ANDS(XX,2) 
>5ANDS(XX,2)<10THENCH=CH + 1 
3030 NEXTXX 
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3040 1FCH<4THENSYSPR,15,15,"YOU FAILED T 
O PEN THE ":SYSPR,15,17,"SHEEP. SCORE 0' 

3041 IFCH<4THENP <T)=0 :CH = 0:GOSUB4000!GOT 

0530 

3050 SYSPR ,5,5, " YOUR SCORE WAS "P <T) : GOSU 
B4000:GOTO530 

4000 FORQ=ITO 1000 :NEXTQsRETURN 
5000 PR1NT"J" 

5010 SYSPR , 12,3, "SHEEPDOG TRIALS" 

5020 SYSPR,4 ,6, "THE OBJECT IS TO HERD TH 

E SHEEP" 

5030 SYSPR,3,8,"INTO THE PEN, UITHIN A F 
IXED TIME." 

5040 PRINT"aa 'Z'-LEFT 1 C'-DOWN ’,'-UP 

•/’-RIGHT" _ 

5078 SYSPR,12,4,"“ 

5073 GETA$:IFA$“""THEN5079 
5080 RETURN 

6000 PR = 12*4096: TL =50176:PRI NTCHR^ < 1 4cl ) 
6010 FORI=PRT0PR+25:READA$:C=LEN<A*>: A=A 

SC <A$>-48 :B=ASC <RIGHT$(A$,1)>-48 

6020 N=B+7* <B >9 ) - < C = 2 > * < 16 * < A +7 * < A >3 ) > > : 

POKEI/N:NEXT 

6025 PRINT"HBEHIO .K. 1 " 

6030 P0KE56333, 127 : : POKE 1 ,51 : FORX =0TO 1 0cl 
3 :POKEX+53248,PEEK(X+53248 >:NEXT 
6040 FORX=0TO31: READA :POKEX+53464,A :NEXT 
6050 POKEI,55:P0KE56333,129:P0KE648,196: 

P0KE56576,4 :P0KE53272,21 

6300 INPUT "k^OSgOMHOW MANY PLAYERS II 

MI" ;A$:A=VAL <AS> s IFA<10RA >10THEN6300 
6310 DIMS(4,2) ,P<A> ,R<2> 

6320 DX=15 :DY=15 :R C1> = -1:R<£> = 1:RR=1 : DD = 
1 

6499 RETURN 

7000 DATA20,FD,AE,20,9E,B7,8A,48,20,FD,A 

E ,20,9E ,B7,68 ,A3,13 ,20 ,F0 ,FF ,20 ,FD ,AE 

7010 DATA4C,A4,AA 

9000 DATA 0,0,2,135,126,124,230,149 
9010 DATA 0,0,64,225,126,62,103,169 
9020 DATA 0,0,0,6,127,254,126,37 
9030 DATA 0,0,0,96,254,127,126,164 
12000 PRINTPEEK<197>:GOTO 12000 = 
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Evolution 


2= - -“ì serie di sei programmi suddivisi in tre gruppi, che rappresen- 
: i/o'uzione della vita dall'ameba, microscopica creatura monocel- 
- - -o all'uomo moderno. Li unisce un unico tema: la lotta per la 
enza. 


Evoluzione 1 


= n _z me 1 inizia con il gioco dell’ameba, in cui il giocatore controlla 
• " : ~ento della piccolissima creatura che deve muoversi sullo 
«m? o mangiando spore ed evitando allo stesso tempo l'attacco di 
a~r :*eature monocellulari. 

»•-* prendo programma, il giocatore è trasformato in un rana, impe- 
r - ad evitare di essere divorata dagli uccelli mentre è impegnata a 
-.-^e m necessario numero di insetti con la lingua. Non c’è nessuna 
i t ressa, come premio per la vittoria in questo genere di lotta, ma 
i- -: cernente l'ammissione nel terzo stadio dell'evoluzione, sotto for- 
- : r castoro, che nel terzo programma deve nuotare cercando di 
:scc-rare dieci pesci, evitando il contatto con un granchio dispettoso. 


: REM ***64 VERSIONI*** 

2 REM *** EVOLUTION 1 *** 

0 I=RND<-TI):POKE53280,0 :P0KE53281 ,0 : PO 
■E53272,23 :PQKE650,255 

»MM»ll»»l»»mMiÌ»—!■■■■■—I m 

30 PP INT" JUlliBia n -F A8 F UJAIT uh ile user- 
OEFINED" , ,"HDHARACTERS ARE SET UP. 

40 P0KE52,48 :P0KE56,48 :P0KE56334,PEEK <56 

334)AND254:POKE1,PEEK<1>AND251 

50 FORI = 14336T015135 :POKEI,PEEK(I+40960) 

: NEXT 

60 FORF =15136T015287 :READG:POKEF,G:NEXT 
70 FOR1 = 15238T016383 :POKEI,PEEK<1+40960) 

: NEXT 

80 POKE 1 , PEEK ( 1 ') 0R4 : P0KE56334 ,PEEK <56334 
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>0R1 :P0KE53272,<PEEK C53272)AND240) + 14 
100 PRINT"La"TAB<10)X 1“ L r I s T /", 

/ / 

102 PRINT" BI*»»I I HIS SEMI -SC IE NT IF IC SERIE 
S OF 

104 PR I NT " k.ROUT INES GIVES YOU THE CHANCE 
TO EVOLVE 

106 PRINT"UFROM AN AMOEBA TO A HUMAN BAS 
ED ON THE 

105 PR INT" sJTHEORY THAT ONLY THE STRONG S 
URVIVE. 

110 PRINT"kUUI HIS PROGRAM GOES FROM AMOE 
BA TO FROG 

112 PRINT"TO BEAVER. I HE NEXT PROGRAM GO 
ES FROM 

114 PRINT"GORILLA TO CAVEMAN. li I HE FINAL 
PROGRAM 

116 PRINT"OF THIS TRIO INVOLVES THE PRES 
ENT STAGE 

118 PRINT"OF EVOLUTION - \4/ AND HIS TEC 
HNOLOGY. 

120 PR I NT " 1111 HE INTENTION IS THAT YOU SH 
OULD TRY 

122 PRINT"THE STAGES IN THE CORRECT ORDE 
R BUT 

124 PRINT"AFTER EACH STAGE YOU ARE GIVEN 
A MENU OF OPTIONS. 

123 PRINT'-HMTRESS ~ I*- IfTO CONTIN 

UE.■:FORQ=1TO10:GETN*:NEXT 

130 GET2$! IF2$< >" "THEN130 

132 PR INT" wiMll HE FIRST STAGE IS AS AN A 
MOEBA <| >. 

134 PR INT "□ |OU HAVE TO EAT 5 SPORES < «« 

> WHILE AVO IDING M AND | . 

138 PR INT " P»PI I H I S IS ALSO A BATTLE AGAIN 
ST TIME, 

140 PRINT-FOR U1HEN THE CLOCK AT THE TOP 
OF THE 

142 PR INT 11 SCREEN SAYS 0, IT MEANS THAT Y 
OU HAVE 

144 PRINT"STARVED BECAUSE YOU DID NOT EA 
T THE SPORES IN TIME. 

148 PRINT"fflf\0VE ABOUT IN THE WATER US IN 
G: 
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150 PR INTTAB <16> "SE - /T'TAB (88 ) " (2 - L — — 
t - _^| || " TA6 <95 ) " Z - -T O/ 

:56 PR INT " IlSHMTFESS a»"»-- | ♦_ ^TO STAR 
T STAGE 1.":FORQ=1TO10:GETN$:NEXT 
15B GETZ$:IFZ$<>" "THEN158 

050 PR INT''^" : AY= 16 : AX = 18 : A$= "HI | 

* 'SAfl" :T=100:SC=0 

1060 FORF = 1T06:Y(F) = INT(RND(1)*22>+1:X(F 
= INT(RND<1> *32)+4 

1070 PRINTLEFT$(Y$,Y ( F > + 1)LEFT$(X$,X(F)> 
MID$(B^,F , 1 )MID*(A^,F, 1 >:NEXT 
1 100 PR 1NTLEFT$(Y:$,AY + 1 ) LEFT$ ( X$ , AX ) "a 
1110 FORF = 1T05STEP2!FORI=FTOF + 1 
1120 POKE1024 +40*Y(I) +X (I),32 :Y(I) = INT(Y 
CI)+RND ( 1 > *2-RND( 1 > *2 > 

1122 X ( I ) = INT < X <I>+RND(1)*3-RND(1 > *3 > 

1 125 IFF < 5THENY ( I)=Y(I)-(Y(IXAY) + (Y(I)> 
AY): X <I>=X (I)-(X(I)<AX > + ( X ( I )>AX> 

1130 IFY<I)<1DRY<I> >22THENY<I ) = 12 
1140 IFX < I> < 4GRX(I)>35THENX<I ) = 19 
1 150 F'RINTLEFT4>(Y$,Y( I ) + l >LEFT$(X$,X( I > ) 
MID*(B$,F,1>MID$(A$,I,1> 

1 155 IFPEEK (1024+40*AY+AX)< >10 1THENGOTO1 
200 

1157 POKE1024 +40 *AY + AX,32 

1158 M*= M ":FORQ=1TO10 :GETN$: IFN$=""THEN1 
160 

1153 M$=N*:NEXT 

1 160 AY-AY-(M$="Z"ANDAY<22> + <M$="2"ANDAY 

> 1 > 

1 170 AX =AX - ( M$= " t " ANDAX < 35 ) + ( M$ = "(9 " ANDAX 

>4 > 

1175 T = T-1 :PRINT"g ,, TAB< 19) n a HH|"T:IFT= 
0THEN1210 

1 176 IFPEEK < 1024+40*AY+AX)< >32ANDPEEK <10 
24 +40 *AY+AX)<>101THEN1200 
1178 PRINTLEFT*(Y$,AY+1>LEFT$(X$,AX>"a 
1180 NEXTI ,F: GOTO 1100 

1200 IFPEEK < 1024 +40*AY + AX) = 102ORPEEK(102 
4 + 40 *AY +AX) = 103THEN12 10 

120 1 PR INTLEFT4>( Y$,AY + 1 )LEFT*(X$,AX) "a " 
LEFT*(Y*,23>;LEFT*(X4>, 16 > " | TI K\! 

1202 FOR J =5T06 : IFAY=Y(J ) ANDAX=X ( J ) THENUIH 
= J 
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1 203 NEXT : Y < WH ) = I NT ( RND ( 1 ) *22 > + 1 : X < U1H ) - I 
NT(RND <1)*32>+4 

1204 PR INTLEFT<<Y<,Y<WH ) + 1 >LEFT<(X<,X<WH 
>>MID<(B<,WH,1>MID<(A<,WH,1> 

1205 FORQ=1TO200!NEXT:PR1NTLEFT<<Y<,23 >L 
EFT<(X<,16>" 

1206 SC=SC+1sIFSC<5THEN1178 

1208 PRINT"JBMUOELL DONE! |0U SURVIVED T 

HE FIRST 

1209 PRINT"OSTAGE OF EVOLUTION AS AN AMO 
EBA. " :GOTO8000 

12 10 PR INT" JSfeBII AD LUCK ! |OU FAILED IN T 
HE 13T STAGE OF EVOLUTION.“:GOTO8000 
2000 PR I NT " kJSMK N THIS STAGE YOU HAVE TO 
CATCH FLIES 

2002 PR INT"ON YOUR TONGUE , UJHILE AVOIDIN 
G THE BIRDS 

2004 PR INT"04H ICH SUJOOP DOWN TO TRY AND 
CAPTURE 

2006 PR INT"THE IR PREY- IT 

2010 PFINT“ WT RESS 0 TO STICK YOUR TONG 
UE OUT 

2012 PRINT"6 TO MOVE LEFT, AND 7 TO MOVE 
R IGHT 

2014 PRINT”IMk IOU HAVE SURVIVED THIS STA 
GE WHEN YOU 

2016 PRINT"HAVE CONSUMED 10 FLIES WITHOU 
T FALLING 

2013 PRINT"PREY TO THE BIRDS. 

2020 PRTNT- tT RESS I*- UTO STAR 

T. "s FORQ=ITO 10 s GETN<s NEXT 
2022 GETZCIFZ«>" "THEN2022 

2024 PR INT "LJ 

2100 X =13 :Y<1>=RND<1)*6+14 : X(1>=4 :Y(2 ) = 1 
: X <2 > =34 : Y <3 ) = Y<2 > * X <3 ) *X <2 > s F =0 
2110 PR INTLEFT< < Y<, 23 ) "IBUk 


2120 PRINT” 3 ” TAB <18>FLEFT<(Y<,21>LEFT<(X 

<,xv r i sanai h. " 

2121 PRINTLEFT<(Y<,Y<1)+l>LEFT<(X<,X<1>) 

"B1 L "LEFT<(Y<, YC3 > + 1 >LEFT<(X<,X<3 > > " 

2 122 PR INTLEFT<<Y< , Y<2) + 1)LEFT<(X<,X(2 >) 
" 

2123 Y<3>=Y<2): X<3>=X<2> 
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£ 1 24 FORO = 1 TO 10 : GETN$ : I FN$= " 11 THEN2 

126 

2125 M$=N$:NEXT 

2126 IFM$="0"THENGOSUB2200 
2140 IFFEEK. < 1786+X > = 1 10THEN2250 
2150 IFY < 2 > < >19THEN2155 

2152 PRINTLEFT$<Y$,Y<2)+1)LEFT$<X*,X<2>> 
“:Y(2) = l: X <2)=X+3: IFX<2> >34THENX<2)=3 
4 

2155 I FX <1> < 34THEN2160 

2157 PRINTLEFT*<Y*,Y<1 ) + l)LEFT$<X$,X<1)> 
" " :X< 1 >=4: Y< 1 >---RND< 1 >*6 + 14 
2 160 PRINTLEFT$ < Y$,Y<1> + l>LEFT$<X$,X<1> > 
" "LEFT*<Y4»,Y<2> + 1>LEFT$<X$,X<2>>" 

2180 Y<2 > = Y<2 > +2 : X <2)=X <2)-<X <2 > <X+2) + <X 
< 2 > >X + 2> 

2 182 Y<1> =Y<1>+RND<1>*1.5-RND<1>* 1.5:X(1 
> =X <1> +RND<1> * 1.5: IFY<1> >2 1THENY <1> = 15 
2130 X = X +<M$="8" ANDX>3 >-<M$="7"ANDX<33 > 
2135 GOTO2120 

2200 PRINTLEFT$<Y$,20>LEFT$<X$,X+2> 11 ni 

ai ni mi ni ni nu 

2202 FORQ=ITO 100:NEXT 

2204 PRINTLEFT$<Y$,13>LEFT$<X$,X+2>“ f|| 

ai ai ai ai ai ai " 

22 10 IFPEEK <1024+40*1NT(Y<1 > >+X< 1 > > = 103T 
HEN2220 

2212 F =F +1:PRINTLEFT$<Y$,Y<1> + l>LEFT$<X* 
,X<1> >" ":X<1> =4 :Y<1> =RND <1)*6+14 

2220 IFF < >10THENRETURN 

2222 PRINT"JMUU30ELL DONE! PU CONSUMED 
10 FLIES AND 

2230 PRINT”CAN THEREFORE EVOLVE TO THE N 
EXT STAGE.":GOTO8000 

2250 PR INT" JOI|j PU HAVE BEEN CONSUMED A 
ND CAN EVOLVE NO FURTHER.":GOTO3000 
3000 PR I NT " .ig»lal IOU HAVE NOLI EVOLVED TO 
A BEAVER. -sN 

3002 PR INT"BITHIS STAGE YOU HAVE TO EAT 1 
0 FISH 

3004 PR INT"k.BEFORE YOU ARE EATEN BY THE 
PATROLLING UORAB. 

30 10 PR I NT " |®T\0VE USING:HS 2 - 
38 > "Gl - L — —I t - 


-^1 II 


r~\" TAB < 
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30 16 PRINTTAB <15)"HE - ~T O/S 
3018 PR INT 11 AND TRY TO EAT THE FISH. \AKE 
SURE THAT 

3020 PRINT"YOU AVOID THE CRAB BECAUSE IF 
IT GRABS YOU, YOU ARE DEAD. 

3022 PRINT"gMJk.“RESS I ♦- kTO STAR 

T. ":FORQ=1TO10 :GETN$:NEXT 

3024 GETZ$ : IFZ $< >" "THEN3024 

3070 P0KE53231 , 6 : PR I NT " .J" LEFT$ < Y* , 23 > IBI 

imi 11111111111111111111111111 « 111 

3072 FORO =1024TO1263 :POKEQ,160 :POKEQ+542 

72,0:NEXT 

3074 FORQ=1264T01304STEP40:F0RF=QT0Q + 3: : 
POKEF,160:P0KEF+36,160:POKEF+54272 ,0 
3076 POKEF+54308,0:NEXT 

3078 FORQ=1944TO2023:POKEQ,160 :POKEQ+542 
72,0:NEXT 

3085 Y = 21 :X=19 : :Y1=Y:X1=X:F=6:G=4:F1=F:G 
1 =G 

3087 A$=" r-L" :FI=0:PRINT ,, a3l"TAB‘: 19)FI 
3090 IFRND <1>>.95THENPRINTLEFT*<Y*,RND<1 
>*15+7>LEFT$<X*,RND<1)*29+5>MID$<B$,RND\ 
1 ) *4 +3,1 > "I 

3095 IFPEEK <1024+40+Y+X/\>117ANDFEEK <102 
5 f40*Y+X ><>117THEN3098 

3096 F I =F I + 1 :PRINT ,, a^"TAB< 19)FI : IFFI< >10 
THEN3098 

3097 PRINTLEFT$<Y$,Y1+1>LEFT$(X$,X1)"3 
U"LEFT$<Y$,Y+1>LEFT*CX^,X)A*:GOTO3250 
3093 PRINTLEFT*(Y*,Y1+1>LEFT$<X*,X1)"3 
•'LEFT*<Y*,F1 + 1>LEFTtKX*,Gl>“ U 

3039 PRINTLEFT$<Y$,Y+1>LEFT$(X*,X >A*LEFT 
*<Y$,F+1 >LEFTSK.X$,G > 11 0 I 
3115 Y1=Y:X1=X:F1=F:G1=G 
3 117 IFF = YAND(G=XORG=X+15THEN3300 

31 18 M$-..ORQ =1TO10 :GETN$: IFN$=""THEN3 

120 

3119 M$=N$:NEXT 

3 120 IFM*=" t"THENA$=" r- 1 -" i X = X + ‘-2ANDX < 33 ) 

3 130 IFM$= "(5 "THENA$= " -tH " : X=X- <2ANDX >5 > 

3 140 Y=Y + < M$="2"ANDY >6 ) 

3150 Y= Y-<M*= ,! Z "ANDY<2 1 > 

3 160 F =INT <F+RND <1 ? * 1.5-RND <1> * 1.5-<F < Y > 
+ <F >Y>>:G=G+1 
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3 170 IFF <60RF>21THENF= < £ 1ANDF >2 1 > + < 6ANDF 

<6 ) 

3180 IFG=35THENG=4 
3190 GOTO3090 

3250 F0KE5328 1 .0 ; PR I NT » . JBMI nFI .1. DONE ! |0 

U SURVIVED AS A BEAVER 

3252 FRINT"AND YOU CAN CONTINUE TO THE N 
EXT STAGE IF YOU UIISH. 

3280 GOTO8000 

3300 P0KE5328 1 .0 : PR I NT " I AD LUCK ! |OU 

CAN EVOLVE NO FURTHER 
3302 PR I NT " RIBECAUSE YOU HAVE BEEN DESTRO 
YED BY THE k.CRAB. 

8000 PR I NT " BKMTF ESS THE KEY WHICH CORRE 
SP0ND3 TO 

8002 PRINT"WHAT YOU WANT TO DO NEXT. 

8010 PRINT"UBI ....♦MQEBA STAGE. 

80 12 PRINT"1J2. . . . —ROG STAGE. 

8014 PRINT"J83. . . . | E AVER STAGE. 

8016 PRINT"M4....LOAD STAGES 4 & 5. 

8018 PR INT" J95 .... “X IT FROM THE PROGRAM. 

8019 POKE650,0 

8020 FORO = ITO 10 : GETN4»: NEXT 
8022 GETM$:IFM* =”"THEN8022 
8025 POKE650,£55 

8030 ONVAL <M4OG0T0132,2000,3000,8050,806 
0 

8040 GOTO8022 
8050 LOAD 
8060 END 

8990 DATA240,240,240,240,240,240,240,240 
9000 DATA 120,132,180,178,129,153,85,51,, 
£4,36,90,90,36,24,0 

9010 DATA0,73,42,28,1£7,£8,42,73,,60,66, 
145,133,145,66,60 

9020 DATA2S,34,78,79,56,32,64,4S,56,68,1 
14,242,£3 >4,2,12 

9030 DATA 15,48,64,92,88,84,82,249,240,12 
,2,58,26,42,74,159 

9040 DATA0,,,34,85,63,24,,,,,63,127,143, 
1,15,3 1,124,240,192,224,255, ,0 
9050 DATA0,,15,16,224,159,8,12,,32,220,1 
0,1,254,16,24 

9060 DATA0,4,59,80,128,127,8,24,,,240,8, 
7,249,16,48 
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9070 OATA0,,8,61,191,255,255,255,12,30,1 
86,255,255,190,30,12 

9080 DATA 195,60,255,126,235,66,165,165 
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Evoluzione 2 


Evoluzione 2 contiene due programmi. Nel primo, il giocatore control- 
2 un enorme gorilla che gira nella foresta raccogliendo le banane che 
rìdono a terra qua e là, mentre il computer fa muovere una piccola 
:: mmietta che contende al gorilla il cibo di cui è goloso. 

5 secondo programma vi attribuisce il controllo di un uomo delle ca- 
■ erne che cerca di uccidere i nemici, che attaccano il suo territorio 
dalie caverne circostanti, lanciando frecce infuocate. 


0 REM***64 VERSIGN*** ***EVOLUTION 2*** 

1 I= RND <-TI ):POKE53280,0 :P0KE53281 ,0:POK 
E53272,23 :POKE650,255 


2 

11 


Y$ = "I 


: X*= " 


3 PR I NT " wiSMWlaTXEASE UJAIT UIHILE USER-D 
EF INED " , , "IICHARACTERS ARE SET UP . 

4 P0KE52,48:P0KE56,48 :P0KE56334,PEEK <563 
34)AND254 : POKE 1 , PEEK ( 1 )AND25 1 


5 FOR1 = 14336T015143 !POKEI,PEEK<I+40960): 
NEXT:FORF =1T064:READG:NEXT 

6 FORF =15144TO15279:READG:POKEF,G:NEXT 

7 FORI = 15280TO16383 :POKEI,PEEK<I+40960): 
NEXT 

S POKE1,PEEK <1)0R4:P0KE56334,PEEK<56334) 
ORI :P0KE53272,<PEEK<53272)AND240) + 14 
10 PRINT"JIII4F YOU HAVE TRIED THE PREV 
IOUS PROGRAM 

12 PR INT"CJTH IS WILL BE THE 4TH STAGE IN 
THE 

14 PR INT"EVGLUTION SEQUENCE. D-,F YOU HAV 
EN'T THEN 

16 PRINT"THE OBJECT IS TO EVOLVE AS FAR 
AS 

18 PRINT"POSSIBLE IN A ROLE-PLAYING SERI 
ES OF DIFFERENT PROGRAMS. 

30 PR INT“HUL.->N THIS STAGE YOU PLAY THE P 
ART OF A 

32 PRINT"GORILLA WHO COMPETES AGAINST A 
SMALLER 
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34 PRINT" MONKEY UIHO IS FASTER THAN YOU. 

U PU HAVE 

36 PRINT"TO EAT ONLY 10 OUT OF 40 BANANA 
S WHICH 

38 PRINT”ARE PLACED IN THE FOREST IN RAN 
DOM 

40 PRINT"POSITIONS , BUT THE MONKEY LIKES 
BANANAS AS NELL ! 

50 PRINT" ail TESS I ♦_ IfTO CONTINU 

E. ": FORO=ITO 10 :GETNS:NEXT 
55 GETZ$:IFZ$<> " "THEN55 

60 F'R INT"LBOÌ\OVE US ING : " TAB < 97 ) " E - r 1“ 

TAB <89 ) "(5 - L~—I t - | Il 

62 PRINTTAB(56) " ♦ - ~TO/ 

64 F'R I NT " 93UT NOTE THAT YOU CANNOT GO TH 
ROUGH THE TREES. 

70 PRINT"IMIPU PICK UP A BANANA BY AL IG 
NING THE 

72 PRINT"TOP HALF OF YOUR BODY WITH THE 
BANANA. 

80 PRINT " M»»^ -RESS I *_ kTO START. 

":FORQ=1TO10:GETN$:NEXT 
82 GETZ*:IFZ$<>" "THEN82 

84 POKE53280,5 :P0KE53281,5 
200 PRINT hH-ht-l-H-H-H-l-H-l-l-H-H-l-t- 

M-H-hH-hh 

202 PPrMT"«iiH..... 


204 FORF = 1T09 : PR I NT "CJMUU3 h h" TAB < 34 ) " Hh": 
PRINT "HMD. ."TAB (34) " . : NEXT 

2 10 PRINT" HMM NH-H-hf-H-H-M-l-H-H-H-H-hl- 

H-M-M-h 

2 12 PRINT" tMHtfS ■■■■■■■■■■■■■■■■■■■■■■■■■ 


230 FORF = 1TO 1 2 : X =RND(1 ) *27 +6 :Y=RND(1)*16 
+ 4 : PRINTLEFT*(Y*,Y:>LEFT$<X$,X) "3f-UCi"iN 
EXT 

240 G =6 : F =3 : G 1 =G : F 1 =F : Y= 19 : X =32 : Y1 =Y : X1 = 
X 

250 B=40:S=0 

260 BY=INT(RND(1)*15+3):BX=INT(RND<1)*26 
+ 6 ) 

265 IFPEEK(1024+40*BY+BX)< >320RPEEK <1064 
+40 *B Y+BX :> < >32THEN260 
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=.->0 PR INTLEFT$(Y$,BY+ 1 )LEFT$(X$,BX ) "EF 
£30 PR INT"SMMMyUttl"BTAB (30 )S 
300 PR INTLEFT*( Y$, Y1 + 1 )LEFT$(X$,X 1 ) " m 
■ "LEFT$(Y$,Y+1 )LEFT$(X*,X) "a| WSIM U 
302 PRINTLEFT$(Y*,F1 + 1 )LEFT*(X$,G1 ) " "LE 
-T*(Y$,F + 1 )LEFT$(X*,G) “ | 

304 PRINTLEFT$(Y$,BY+1)LEFT$(X$,BX)"BF 
320 IFY=BYAND(X=BXORX=BX-1> THENGOSUB650 
330 IFF=BYANDG=BXTHENB=B- 1 : PR I NT " aa>MM 
Kl IM"B : G0SUB655 
335 Y1 = Y : X 1 =X 
340 F 1 =F : G 1 =G 

344 ..FORO = 1 TO 10 : GETN$! IFN$= " "THEN35 

0 

346 M$=N$:NEXT 

350 Y=Y-(M$="Z"ANDY<19)+(M$="2"ANDY>3):X 
=X- (M$ = " t "ANDX<32 > + (M$ = "(2 " ANDX >6 ) 

360 IFPEEK(1024 +40 *Y + X)>106GRPEEK(1064+4 
0*Y+X)>106THENY=Y1:X=X1 

365 IFPEEK ( 1025+40*Y+X)>106ORPEEK<1065+4 

0 *Y+X)>106THENY = Y1:X=X1 

380 F =F-(F <BY) + <F >BY)s G=G-<G<BX > + <G >BX) 

330 IFPEEK <1024 +40*F +G)<107THEN300 

392 F = INT < F1+RND<0*1.5-RND <1>*1.5):G=IN 

T < G 1 +RND <0*1.5 -RND (0*1.5): GOTO390 

650 S = S + 1 :B = B- 1 : PR INT" MMf ili 1111" BT 

AB < 30)S 

655 I FS=10THEN800 
657 IFB =0THEN700 

660 B Y = I NT (RND (0*15+3): BX= INT (RND ( 1 ) *26 
+ 6 ) 

665 IFPEEK( 1024+40*BY + BX)< >320RPEEK(1064 
+ 40 *BY + BX)< >32THEN660 

670 PRINTLEFT$(Y$,BY+1)LEFT$(X$,BX)"BF 
630 RETLIRN 

700 POKE53280,0 : P0KE5328 1 ,0:PRINT ' MaOMI l 
AD LUCK ! |0U ARE NOT FAST ENOUGH TO 

720 PRINT"PROGRESS ANY FURTHER IN EVOLUT 
ION. ": GOTO 1810 

800 POKE53280,0 : P0KE5328 1 .0 : PR INT" lMM n 
ELL DONE! |0U MANAGED TO EAT THE 

810 PRINT"BANANAS BEFORE YOU STARVED AND 
THEREFORE 

820 PRINT"□YOU CAN PROCEED TO THE NEXT S 
TAGE. ": GOTO 1810 
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1300 PR1NT" JA1I! HE OBJECT HERE 13 TO STO 
P OTHER 

1002 PRINT"CAVEMEN FROM ATTACKING YOUR C 
AVE. PUR 

1004 PRINT"CAVE IS IN THE MIDDLE OF 8 OT 
HERS, AND 

1006 PRINT"FROM ANY OF THESE CAN COME RI 
VALS WHO 

1008 PRINT"ARE PREPARED TO KILL YOU IN 0 
RDER TO STEAL YOUR PROPERTY. 

10 10 PR I NT " KW |OU CAN SPIN ROUND U1ITH 6 A 
ND 7 AND 

10 12 PR INT "THROLI A SPEAR L-JITH 0. PU HAV 
E 

1014 PRINT"SUCCESSFULLY DEFENDED YOUR CA 
VE LIHEN 30 

10 16 PR 1 NT " ATTACKS HA VE BEEN MADE . IOL1EV 
ER, YOU ARE 

10 18 PRINT"DG IVEN 3 LIVES TO MAKE YOUR T 
ASK EASIER. 

1020 print-mitress i*- h™ STAR 

T. ": FORO =1TO10 :GETN*:NEXT 
1030 GET2$:IFZ$<>" "THEN1030 

1040 PRINT“ t '|HM Il 

1050 RESTORE: FORA=1T08:S=RND <1> *7+2 :FORC 
= 1T08 • READQ:POKE1024 + Q , 160 
1060 POKEQ +55296,S ‘ NEXT:NEXT 

1090 A$=" ; __ i— 1 —i—( I “ :A=1 :S = 0:C = 0 :C$=" 

1091 K =0 

1092 PR INT" 9 "TAB <25 ) "3*1 I "VI "Cs IFC=30 
THEN1700 

1095 ONINT(RND<1)*8)+1GOSUB1400,1410,142 
0,1430,1440,1450,1460,1470 

1100 PRINTLEFT*<YS,13>LEFT*<X$,19)"U M MID 
^<A$,A,1) 

1110 PRINTLEFT*.<Y*,Y+1 >LEFT*<X*,X>" " ! Y = 

Y+DY:X=X+DX 

1112 PRINTLEFT$<Y$,Y+1)LEFT$<X*,X)"U 
1115 IFY=12ANDX=19THEN1600 
1120 IFS=0THEN1190 

1125 PRINTLEFT*<Y*,F+1>LEFT$<X*,G>" ":F- 

F +Y2:G=G+X2 

1130 PRINTLEFT*<Y$,F+1>LEFT*(X$,G) 

1135 IF < <F =YANDX =G)OR<F+Y2=YANDG+X2=X)) = 
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3 THE NI190 

1140 PRINTLEFT$<Y$,F + 1 >LEFT$<X$,G) " " 

1 145 FORUMT0S:PRINTLEFT$(Y$,Y+1 >LEFT$(X 
S,X)MID$<C$,W,1>"I ":NEXT:S=0:C=C+1 
1150 GOTO 1092 

1190 M$="":FORQ=ITO 10 :GETN$: IFN*=”"THEN1 
200 

1195 M*=N*:NEXT 

1200 A=A-<M$="7"ANDA<8)-<7ANDM$=“7"AND A = 
8>+<M*="6"ANDA>l >+<7ANDM*="6"ANDA=1 ) 

12 10 IF(M$ ="0"ANDS = 0)=0THEN1300 
1220 B5T^MID$<A$,A , 1>:F=12:G=19:S=1 
1230 ONAGOSUB1520,1530,1540,1550,1560,15 
70,1580,1590 
1300 GOTO 1100 

1400 Y=2:X = 9:DY=1:DX=1: RETURN 
1410 Y=1:X = 19:DY=1 :DX=0: RETURN 
1420 Y=2:X=29:DY=1:DX=-1:RETURN 
1430 Y=12 :X = 31:DY=0:DX = -1: RETURN 
1440 Y=23:X = 30:DY=-1 ?DX = -1: RETURN 
1450 Y=£3:X=19:DY=- 1:DX=0:RETURN 
1460 Y=£3:X = 3:DY=-1 :DX=1 .'RETURN 
1470 Y=12 :X = 7:DY = 0:DX=1 : RETURN 
1520 Y2=-l:X2=0:RETURN 
1330 Y2 = -l:X2=1: RETURN 
1540 Y2=0:X2=1: RETURN 
1550 Y2 = l:X2=1: RETURN 
1560 Y£ = 1 :X£ = 0 ! RETURN 

1570 Y£=l:X2 = -1: RETURN 
1580 Y2 = 0 s X2 = -1 ! RETURN 
1590 Y2 = - 1 :X£ = - 1 : RETURN 

1600 PRINTLEFT*<Y*,F+1)LEFT$<X$,G>" "LEF 

T$<Y$,Y+1>LEFT*<X$,X:>"| ":FORF = 1TO40:NEXT 

1801 PR1NTLEFT$<Y$,Y+1>LEFT*<X$,X>MID$<A 

$,A,1>"a"LEFT*<X$,K+l1)" ■:K=K+1 

1605 IFK = 3THEN1800 

1607 8=0 

18 10 GOTO 1092 

1700 PR INT MMM OFLL DOME! -EFENDING YOUR 
CAVE UJAS NOT 

1702 PR1NT"CEASY, BUT YOU DID VERY NELL 
AMD CAN 

1704 PR INT"EVOLVE FURTHER IF YOU UIISH TO 


■ : GOTO 1810 


78 Evoluzione 2 


1800 PRINT "kJEUMI AD LUCK ! |Oll FAILED IN Y 
OUR ATTEMPT TO DEFEND TOUR CAVE. 

1810 PR INrailTFESS THE KEY U1HICH CORRE 
SPONDS TO UHAT YOU LIA NT TO DO NEXT. 
1320 PR T NT ’* 1 . . . OTART THE GORILLA STAGE 

1822 PRINT"B2 . . .¥TART THE CAVEMAN STAGE. 
1824 PRINT M S3...LOAD THE 6TH STAGE. 

1826 PRINT-H4...“XIT FROM THE PROGRAM. 

1828 FORQ=1TO10:GETN$:NEXT 

1830 GETM$ : IFM-* = " " THEN1830 

1840 IFM$="1"THENPRINT" J" :GOTO30 

1850 IFM*=“2"THEN1000 

1860 I FM£ = ,: 3 " THENLOAD 

1370 I"4"THENEND 

•380 GOTO 1830 

13C0 DATA47,48,49,87,88,127,128,129,18,1 
9,20,58,58,60,88,100 

1910 DATA69,70,71,110,111,149,150,151,44 

5 ,446,447,435,486,525,526,527 

1920 DATA471,472,473,512,513,551,552,553 

,886,887,888,926,927 ,966,967,963 

1930 DATA893,898,900,938,940,978,979,980 

,910,911,912,951,952,990,991,992 

2010 DATA64,99,101,51,63,31,13,7,,192,16 

0,192,248,252,190,231 

2020 DATA7,7,7,14,12,12,12,28,227,225,22 
4,1 12,48,48,48,56 

2030 DATA2,2,6,14,23,56,240,,25,25,255,1 
88,152,60,36,102 

2040 DATA8,60,126,254,255,127,126,60,24, 
24,24,24,24,24,24,24 

2050 DATA8,28,3,8,8,8,8,8,,6,6,8,16,32,6 

4 , , , ,2 ,255,2,,,,,64,32,16,8,6,6,0 

2060 DATA8,8,8,8,8,8,28,8,,2,4,8,16,96,9 

6 , , , ,64 ,255,64,,,,,96,96,16,8,4,2,0 
2070 DATA28,28,8,62,8,28,20,20 
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= _:«one 3 è il culmine logico della serie di stadi attraverso cui ab- 
3 r- : seguito le varie creature in lotta per la sopravvivenza, come ca¬ 
se : -na superpotenza di vostra scelta, dovete distruggere le capitali 
jh e~ torio nemico con i vostri missili prima di essere distrutti. Per 
: nel poco tempo a vostra disposizione, dovete programmare il 
■- ; re vostri missili con una serie di ordini direzionali mentre il mis- 
- :e nemico si sposta verso una delle vostre capitali, il programma 
una mappa del mondo con i percorsi dei missili. 


10 REM *************************** 

20 REM * EVOLUTION #3 * 

30 REM * ORIG. BY P. STANLEY * 

40 REM * CBM64 VERSIONI BY GEOFF. * 

50 REM * USER GRAPHICS ARE SHIFT* 

80 REM * A TO P. ENTER ROUTINES* 

70 REM * AT 5000 - 5110 FIRST & * 

80 REM * SAVE THEM. GOOD LUCK * 

90 REM *************************** 

100 P0KE52,64 :P0KE56,64 :CLR: REM PROTECT 
NEW CHAR SET 

105 di ma* < 10 >, xy.< 10 ), yy. < 10 >, a < 10 >, c* < 50 > 

:CM=55296:SS=16384 

1 10 P0KE54286,8 :POKE53280,6 :P0KE53281,12 
:GOSUB7000 

139 REM ** START OF ACTION ROUTINES ** 
200 CA =INT<RND<0 > * 10+1 >: IFA*<CA > =CP*ORA < 
CA)=1GOTO200 

2 10 cxy.=y.y.<cfn : cy*/.=y*/.<ca > : ap=cy-,<*40+cx:c 

POKEC M+AP,2 :SC =SC +1 : REM ATTACK CAP RED 
220 OS=XX<CN> +Y*/.<CN> *40 : POKECM + OS ,2 : RC=7 
0 : CC =2 : YX=Yy.(CN) :XV.=XX<CN> 

229 REM ** ENTER MISSILE PROG ** 

230 C=1:PRINTSC*"aENTER PROGRAM AFTER TH 
E TONE.": FORA =1TO50:C*< A)*"":NEXT 

235 FORA =1TO1000 :NEXT:GOSUB5300:PRINTSC* 

• 

.r 

240 HI=38 :L0=97:DU=800:GOSUB5350 

250 C1=C:FORF = 1T0SK*2:GETQ*: IFQ*=""THENN 
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EXTF:GOSUB300:GOTO290 

260 IFQ$ = "N M ORQ^= "S"ORQ$= "E "ORQ*= “LPTHEN 
C*<C)=Q$:C=C+1:PRINTQ$;:GOTO280 
265 IFQ$ ="F"0RC=51THENGOSUB5300:HI = 16 : LO 
=5 :DU=800:GOSUB5350:F =SK *2 :NEXTF:GOTO400 
270 IFC1=CTHENGOSUB300 f GOTO280 
273 GOTO280 

280 F =SK*2 :NEXTF:HI=44 : LO=193 :DU = 300:GOT 
0250 

290 IFPH=1GOTO3000 
295 GOTO250 

300 REM *** ENEMY MISSILE MOVES *** 

305 IFCYy.<Y!X.<CN>THENCYX.=Cy/.+ l :MI=67 
310 IFCYX>Y*/.(CN)THENCYX=CYX-1 :MI=65 
320 IFCXX<Xy.<CN>THENCXX=CXX+1 :MI=66 
330 IFCXX>XX<CN)THENCXX=CXX-1 :MI=68 
340 POKESS +RP,RC:POKECM+RP, CC:RP=CYX*40+ 
CX%:RC=PEEK(SS+RP>:CC=PEEK(CM+RP) 

350 POKESS +RP , MI : POKECM+RP ,10 
355 IFRC =MMTHENRC =MC:CC=MD 

360 IFCYX=YX(CN)RNOCXX=XX< CN)THENGOTO300 
0 : REM YOU‘RE HIT ! 

370 HI=31 : LO=218 :DU=20:GOSUB5350:H I =26 :G 
OSUB5350:RETURN 

399 REM *** MOVE YOUR MISSILE *** 

400 C=1:MC=70:MD=7:POKECM+OS,7 

4 10 FORF =1T03:YX=YX+ < C*<C ) = "N" >-<C$<C>=" 
S"):XX=XX+(C*<C)=“W")-<C$<C>="E"> 

420 POKESS +0S,MC!POKECM+OS,MD 
430 IFYX>19THENYX=0 
435 IFYX<0THENYX=19 
440 IFXX<0THENXX=39 
445 IFXX>39THENXX=0 

450 OS = YX*40 +XX:MC =PEEK<SS+OS):MD=PEEK<C 
M+OS > 

460 LETMM=64-<C*<C)= M N")-<3*<C$<C>="S")) 
-<2*<C^<C) = ,, E“ ) )-<4*(C$<C) = "W" > ) 

465 IFMC=MIRN0F=3THENMC=RC:MD=CC 
470 POKESS+OS,MM:POKECM+OS,7 
480 IFYX=YX<CR)RNDXX=XX<CR>THENF = 3 :NEXTF 
:GOTO700: REM HIT 

490 C = C+1 : IFC*<C>=“ “0RC = 5 1THENC= 1 :Y*/.=YX< 
CN) : X*/.=XX<CN) : GOTO550 

500 DU = 30 : LO = 100 :FORHI=25TO30:GOSUB5350: 
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NEXTHI,F:GOSUB300:G0T0410 

550 POKESS+OS,80 :POKECM+OS,1:PRINTSC$"YO 
U MISSED!":GOSUB5310 

560 FORA=1TO10 :POKE53280,0 : FORA 1 = 1TO50:N 
EXT:POKE53280,1 : FORA 1 = 1TO50:NEXTA1 
570 P0KE54296,16-A :NEXTA:POKE53280,10 
590 OS=40*YX<CN) +X/.CCN) : G0SUB5365 
600 F =3 :NEXTF:GOSUB5300:GOTO230 
638 REM 

699 REM ** ENEMY CITY DESTROYED ** 

700 IFSC =9THENTD =1 

705 G0SUB5310 :POKESS+AP,RC:POKECM+AP,CC 
7 10 FORA=ITO 10:POKE53280,0:FORA 1 = 1TO50:N 
EXT :POKE53280,1 : FORA 1 = 1TO50:NEXTA1 
720 P0KE54296,16-A:NEXTA:POKE53280,10 
730 PR INTSC*A$<CA ) •' HA3 BEEN DESTRO YED " : 
A < CA > = 1 

' , 40 G0SUB5365 : AF =XX<CA ) + Y7. (CA ) *40 : POKESS 
+ AP,80 :POKECM + AP, 1 : FORA =ITO 1000 : NEXT 
750 GOSUB5300:IFTD=0GOTO200 
760 REM ** YOU GOT THEM ALL ** 

7B5 SK =SK. -5 : IFSK <30THENSK = 30 

770 GOSUB5300:PRINTSC$"YOU INHERIT A DEV 

ESTATED WORLD.":GGSUB6000:GOTO3010 

2999 REM +** WHOOPS! YOU'VE HAD IT *** 

3000 POKESS+AP,80:POKECM + AP,7 :GOSUB5470 
3010 FORA=1TO20:GETQ*:NEXT 

3020 GETQ$:IFQS=""GO7O3020 

3025 FORA = 54272TC54295 :POKEA,0 :NEXT:POKE 

54296,8 :GOSUB5300 

3030 PRINTSC$"a WANT TO TRY AGA IN?" 

3040 GETQ*: IFQ$< >"Y"ANDQS< >"N"GOTO3040 

3050 IFQ^="N"THENG0SUB5100 : END 

3060 P0KE532S1, 10 :PRINT"LUTHE CITIES ARE 

: a" 

3070 FORA =ITO 10 :PRINTA$<A>: A <A)=0 :NEXT 
3080 G0SUB7120 :SC=0:TD=0:GOTO200 

4999 REM *** INITI AL ISATION *** 

5000 PGKE56334,PEEK <56334)AND254:POKE1,P 
EEK<1 )AND251 : REM K/B & I/O OFF 

5005 CS=20480:C1=53248 

5010 FORA =0TO63: FORA 1=0TO7:0S=A*8+A1 

5020 POKECS+OS,PEEK<Cl+OS):POKECS+OS+102 
4,PEEK<C1+OS+1024):NEXTA1,A 
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5030 POKE1,PEEK<1)0R4:P0KE56334,PEEK <563 
34 )OR1 ! REM K/B & I/O ON 
5040 P0KE53272,<PEEK<53272)AND240)0R4 
5045 RETURN 

5050 FORA =65TO80: FORA 1=0TO7:READB 
5055 POKE20480 + <8 *A)+A1,B:NEXTA1,A 
5070 P0KE648,64:POKE56576,<PEEK<56576)AN 
D252)OR2 

5075 P0KE53272,(PEEK<53272)AND 15) 

5080 RETURN 

5098 REM *** RESET EVERYTHING *** 

5100 P0KE648,4:P0KE56576,(PEEK<56576)AND 
252)0R3 

5 1 10 POKE53272,21:PRINT"J" ; :P0KE54296,0 : 
RETURN 

5200 PRINTTAB <5)"SFRESS 3RETURNH TO CONT 
INUE " 

5210 GETQ^: IFQ$< >CHR$<13)G0T05210 
5220 PRINT"D 

□ " : RETURN 

5299 REM *** CLEAR BOTTOM OF SCREEN *** 

5300 PRINTSC*; : FORA = 1T079SPRINT" ";:NEXT 
iPRINTSC^:RETURN 

5309 REM ** 5310-5390 SOUND ROUTINES 

5310 P0KE54272,73 :P0KE54273,4 :P0KE54278, 
128:P0KE54277,140 :P0KE54276,129:RETURN 
5350 P0KE54272,L0:P0KE54273,HI:P0KE54278 
,249 :POKE54277,15 :F0KE54276,17 

5360 FORA =1TODU:NEXT 

5365 FORA =0TO7:P0KE54272 +A,0 :NEXT:RETURN 
5370 FORA = 0TO7:P0KE54279+A,0 :NEXT:RETURN 
5375 FORA=0TO7:P0KE54286+A,0 :NEXT:RETURN 
5380 F0KE54272,184 :P0KE54273,4 :P0KE54277 
,16 :POKE54278,249 :P0KE54276,129 
5390 P0KE54296,15 : RETURN 

5399 REM *** LIGHTS *** 

5400 F0RA = 35T05STEP-1 :P0KE53281,10:P0KE5 
3280,1 : FORA 1 = 1TOA:NEXTA1 :P0KE53281,1 

54 10 POKE53280,10 : FORA 1 = 1TOA:NEXTA1,A:PO 
KE53281,6 : RETURN 

5450 FORA = 512TO40STEP-1 : OS=INT<RND <TI)* 1 
000+1 ):POKESS +OS,160 :POKECM+OS,1 

5451 P0KE54296,INT<A/32):NEXT 
5453 P0KE53281,0:PRINT"; 
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5455 FORA=1TQ£4:PRINT"« 

" ; :NEXT 

54G0 PRINTSC$"aa NO SECOND CHANCES....■ 
": RETURN 

54G9 REM *** DESTRUCTION SEQUENCE *** 

5470 P0KE54285,128 :P0KE54284,£40 :P0KE542 

79,100 !POKE54280,50:POKE54283,129 

5475 FORA = 190TO8STEP-2 :POKE54£80 ,A .'FORAI 

= 1TO50:NEXTA1 :NEXTA:GOSUB5370:GOSUB5400 

5480 GO9UB5380:GOSUB5450:P0KE54272,31 : PO 

KE54273,41:P0KE54278,128 

5490 P0KE54277,240 :P0KE54276,129 

5500 P0KE54296,PEEK <54296>0R68:P0KE54293 

, 4 :P0KE54294,10 

5510 P0KE54295,1 : RETURN 
5999 REM *** DEVESTATION *** 

S000 FORA = 0TO23:P0KE54272+A,0 :NEXT 
G010 P0KE54286,5 :POKE54290,16 :P0KE54275, 

I :P0KE54296,143 :P0KE54278,£40 

6020 POKE54278,240:P0KE54276,1£9 :FR =1438 
9 :GOSUB5500 

G030 FORT=1TO600:GOSUBG100 :NEXT 

604 0 HF = HF- 1 :P0KE54£73,HF: FORA =1TO40:NEX 

T: IFHF >1GOTO6040 

6050 G03UB5365:G0SUB5375:P0KE54296,8 :RET 
URN 

6 100 FQ =FR +PEEK (54299 ) *45 : HF= INT(FQ/'£56 ) 

:LF =FQ-HF *256 

6110 P0KE54272,LF:P0KE54273 ,HF: RETURN 
6993 REM *** INSTRUCTION PAGES ETC *** 
7000 PRINT"kJRfidTHIS 13 THE 3RD AND FINAL 
SECTION IN THEH" ; 

70C5 PRINT"3ERIES OF EVOLUTION PROGRAMS. 

II 

70 10 PRINT"agerrHIS ONE involves a nuclea 

R LJAR r WHERE " 

70 15 PRINT " EYOU CAN PLAY THE PART OF P.M 
. OF ANY OF" 

7020 PRINT"STEN SUPERPOWERS WHICH MAY EX 
IST IN £002" 

7025 PR I NT " gj( THE YEAR IN WHICH THIS WAR 
TAKES PLACE ) " 

7030 PRINT"^THE OBJECT IS TO PROGRAM C:R 
UISE MISSILES"; 
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7035 PRINT-ITO HOME IN ON YOUR ENEMIES C 
APITALS.":GOSUB5000:GOSUB5200 
7040 PRINT"kJHS IN 2002 THE WORLD IS NOT 
VERY DIFFERENT" 

7045 PRINT"FROM 20 YEARS AGO, APART FROM 
THE NEW" 

7050 PR I NT "BSUPERPOWERS NON EXISTING. SC 
UTH AMERICA" 

7055 PRINT"HHAS BEEN OVERRUN BY BRA2IL, 
ANO ITS" 

7060 PRINT" SCAPI TAL IS BRASILIA. JAPAN H 
A3 BECOME" 

7065 PR INT"MA POWERFUL NAT I ON, AND THE A 
RAB STATES" 

7370 PRINT"MHAVE BECOME UNIFIED AROUND A 
CAPITAL," 

7075 PRINT"IF IYADH. AUSTRALIA AND SOUTH 
AFRICA HAVE" 

7080 PR INT"SI3LSO RISEN TO BE SUPERPOWERS 
S" :GOSUB5200:GOSUB5050 

7085 PR INT" J"CHR$< 142 > "MENTER A SKILL L 
EVEL <30-100)" 

7080 INPUT " S< 30 IS HARDEST) ;SKì 

7100 IFSK$="*"GOTO7085 

7105 SK =VAL<SK$): IFSK<30ORSK>100GOTO7085 
7107 PRINT"kJSTHE CAPITAL CITIES ARE : a" 

7 110 FORA=ITO 10 :READA$<A),XX<A),YX<A>:PR 
INTA $ ^ A)J A < A)=0 :NEXT 

7 120 PR INT "MIN WHICH CAPITAL DO YOU WAN 
T TO BE P.M.a" 

7130 INPUT"<TYPE FIRST TUO CHARACTERS) fe| 
U*IMI" ; CP$ 

7140 IFCP$ ="*"THENG0SUB5100 : END 
7150 FORA = ITO 10 : IFLEFT*<CP$,2 ) < >LEFT$<A* 
< A) ,2 >THENNEXTA:PRINT " rTTTT * :GOTO7120 
7 160 CN=A:XX=X*/.<A) : Y%=YM<A> :CP$=AS<A) : A = 
10:NEXTA 

7200 PRINT"JMYOU PROGRAM YOUR MISSILES B 
Y COMPASSB" 

7205 PR I NT "DIRECTIONS < IE N,S,E,U>. THE 
WORLD MAPB" 

7210 PRI ITT "DIVIDED INTO SQUARES , AND EAC 
H STEP OF" 

7215 PRINT"BTHE PROGRAM MOVES THE MISS IL 
E OISE SQUARE" 
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7220 PRINT"E.G. ’NNEES’ MOVES THE MISS IL 
E UP 2,a" 

7230 PR INT"R IGHT 2, DOLIN 1 . H" 

7235 PRINT"RIF THE MISSILE GOES OFF THE 
SCREEN IT»" 

7240 PR INT "LIILL REAPPEAR ON THE OPPOSITE 
SIDE 

7250 PR I NT " S3THE RED SQUARE IS YOUR TARGE 
T.B" 

7260 PRINT"lENTER YOUR COMMANDS AS FAST 
AS POSSIBLE BAND PRESS 1 F' TO LAUNCH..." 
7270 GOSUB5200 

7300 POKE53280,10:P0KE5328 1 ,6 

7308 REM **** WORLD MAP **** 

7309 REM ** KEYS ARE SHIFTED E-0 ** 

7310 pr i NT " uii-rsri i 1/- 


7320 FRI NT"--s J \“LI ! 1 I ^ 


7330 PR INT"- -> \— J /“LI |\- \ 

I I I I /-; 

7340 PR INT ’TI I I I l/TI -TI 1 /"TI I I 

1111111111 /“; 

7350 PR I NT "LI MIMI \T-I-I- '■» I “Il II II I 

II II II II II V i 

7355 PRINT"- 1“l_l II I /~\ / -in -Il II I 

Il II I \~ I-" ; 

7360 PRINT-LI II II I \--T-l II II II I 

Il II I *-“ ; 

7365 PRINT"-1 | | | _\-T\ I l~LI IMI 

I II I \J-- ; 


7370 PRINT"-LI I I I 


7375 PRINT"-LI _ I- 

i i i-" ; 

7380 PRINT"-L/- 

L/- 

7385 PRINT"-LI 1 /“ 

“ |-" ; 

7330 PRINT"-TI I 1/ 


T I /“LI I I 


-ni il i-li 


-il il il i \— 


\ 


-Lll II II *— I- 
- 1 I I \- 


7395 PRINT"-LI I I - ^-1 I I 

-L c-- ; 

7400 PRINT"-Lll I- lll~l 
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7420 PRINT" | :FORA 1 = 1T039:PRI 

NT" — ; ! NEXTA 1 

7425 PRINT" |--- 


-Il a 

r 

7430 RETURN 

10000 OATA0,8,23,8,8,62,0,0,0,32,36,62,3 
6,32,0,0,0,62,8,8,28,8,0,0,0 
10010 DATA2,18,62,18,2,0,0,128,123,128,1 

28,128,128,128,255 

10020 DATA 127,127,99,83,39, 127 , 1 £ 7, 0 ,! £7 

,127,127,127,127,127,127,0 

10030 DATA255,254,190,188,152,128,128,25 

5,123,128,123,152,138,190,254,0 

10040 DATA 128,224,240,248,248,240,192,25 

5.129.131.143.159.159.135.131.255 

1O050 DATA255,191,159,159,143,131,129,25 

5.127.126.120.112.112.96.64.255 

10060 DATA0,64,112,120,124,124,127,0,129 

,131,131,143,159,191,191,192 

10065 DATA24,126,255,255,90,24,24,60 

10070 DATA"LONDON",18,6,"MOSCOW",23,5,"B 

ONN",20, 6 ,"NASH INGTON",9,7 

10080 DATA"BRASILIA",13,13,"TOKYO",34,8, 

"RIYADH",23,9,"CANBERRA",35,16 

10030 DATA"PEKING",31,8,"PRETORIA",21,15 
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Siete stati colpiti da un aereo nemico che si è aperto un varco nella 
vostra barriera difensiva, l vostri lanciatori devono cercare di fermare 
:on i missili il nemico che ha tutta l'intenzione di distruggere la vostra 
base. Non è un compito facile, attenti! 


5 REM BLITZ.WALWYN 

10 GOSUB63900 

11 P0KEUG,U6:PRINT"J"U8$; 

12 PRI NT"THIS IS A GAME OF SURVIVAL CALL 
ED 

14 PR I NT " & . iTP ìmmmfó ! 

18 PR INT "HIT IS RE ALL Y TW0 GAMES IN ONE 
S1NCE" 

£0 PR I NT " SBSFYOU MAY CHOOSE WHICH SIDE TO 
BE . . . 

££ PRINT"*: ITHER A BOMBER OR GROUND DEFE 
NCES. 

£4 PRINT n H AS A BOMBER , EACH TIME YOU P 
RESS ' £ 1 , 

£6 PRINT"YOU DIVE & EACH TIME , YOU 

CLIMB. 

£8 PRINT"BOMBS ARE RELEASED AT A RANDOM 
BUT LO LI 

30 PR INT "HE IGHT. LJHEN ALL BOMBS ARE DROP 
PED, " 

31 PRINT"YOU WILL CLIMB MUCH FASTER. BE 
CAREFUL" 

3£ PRINT"NOT TO CRASH INTO THE TOP OF TH 
E SCREEN!" 

33 PR I NT " BDNCE YOU HAVE BEEN HIT, YOU Ul I 
LL HAVE" 

34 PRINT"NO CONTROL OVER YOUR AIRCRAFT A 
NO WILL" 

35 PRINT"CRASH ANYWHERE!" 

40 PR I NT " .SHFRESS ANY KEY 

41 GET A*:IF A$="" THEN 41 

44 PR I NT " »JAS THE ANT I-A IRCRAFT PLAYER, 

45 PR INT"YOUR GUNS OPEN FIRE WHENEVER YO 
U PRESS 
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46 PRINT"THE IR NUMBER. THE SHELL BURSTS 
ARE 

47 P R I NT "EFFECTIVE FOR APF'ROX . 3 SECONDS 
AFTER 

48 PRI NT"EXPLOSION. 

43 PRINT"EACH ENEMY A IRCRAFT NEEDS TO BE 
HIT 

50 PR I NT “ TWI CE TO EXPLODE OTHERLJI SE (UJIT 
H 1 HIT) 

5 1 PRINT”IT L1ILL CRASH CAUSING MUCH DAMA 
GE ! 

52 PRINT" HfiEACH A IRCRAFT CARRIES 10 BOMB 
S AND UILL" 

54 PR INT "BE REPLACED BY ANOTHER PLANE UJH 
EN ALL” 

55 PRINT”ITS BOMBS ARE DROPPED." 

56 PRINT"STHE HEIGHT OF EACH SHELL BURST 
CAN BE " 

57 PRINT"STOPPED BY PRESSING NUMBER '0' 
OR" 

58 PRINT"FIRING OFF ANOTHER GUN." 

59 PRINT " «gbJHAT DO YOU LIISH TO BE? 

60 PRINT”JFRESS ‘A 1 FOR AIRCRAFT , 1 G 1 F 

OR GROUND" 

62 INPUT A* 

63 V = 0i IF A*="A”THEN V=1:G0T065 

64 IFA$< >"G"THEN62 

65 PRINTU6$;"J" 

70 PL=0:TI$="000000" 

71 G=US:W=UC 

72 DIM TX(250),TY(250) 

93 POKEUG,UF:PRINT" J" :POKEUG , U9:POKEUB,U 
E 

100 POKE G +79,31 

106 PRINTU6$;"_ 

107 FORJ=1T09:PRINTU4$;CHR*(J+48);U6$; 

_" ; :NEXTJ 

110 X = 39 :Y =1 
115 FOR K =1TO250 
120 X7.=RND<1>*7 

125 PR I NT '■ aii—mm»»Miia ; 

128 PR INTU2*; "SHOT DOLIN="PLJ"H a"jU4$;MI 
D$(TI$,3,2>"."MID*<TI$,5,2> 
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130 IF Y1 = -2ANDX =1THENPOKEG + 40 *Y+X,32:Y1 = 
0 ! X =39 !Y=INT < RND <1 )* 11 + 1 ):BD=0 
140 POKE G + 40 *Y+X,32 
14 1 IF V =1 AND Y1< >1 THEN 7000 

142 IF XY.>4 THEN Y = Y+1+Y1 

143 X=X-1 : IF X =0 THEN X = 39 

144 IF PEEK<G+X+40*Y)<>32 AND Y<24 THEN 
GOSUB3000 

145 POKE G +X +40*Y,31 
150 IF V=1 THEN 8000 

300 GET A$:IFA$=""THEN305 

301 IFASC<A*><480RASC<A$>>57THENA$="0":A 
= 0 :G0T0310 

305 A=VAL<A$> 

306 IF A$="0" THEN B=0 

310 IF A=0 AND B< =0 THEN 400 
312 IF PEEK(G+A*4-1+960)=102 THEN 400 
315 IF A >0 THEN B = 24 : XX =A *4 - 1 : YY=23 : UJ=0 
320 B =B- 1 

330 POKE G+XX+YY*40+UJ,32 
340 YY=YY-1 :RY.=RND<1 >*3-1 
345 W=W+R* 

350 POKE G + XX +YY*40 +W,42 

360 TX < K ) =XX +U1 : TY ( K > = YY 

400 IF Y= >24 THEN GOSUB2000 

405 L=K-22:IF L<1 THEN L=250-K 

410 POKE G +TX < L)+TY (L)*40,32 

420 IF Y1 =0 AND Y>12+XX. THEN GOSUB4000 

425 B3=0 

430 FOR N=1TO10 

431 IF PEEK (G+959+<N-1>#4)=102 THEN B3= 
B3 + 1 

432 IF B3 = 9 THEN 5000 

434 IF BR(N> =0 THEN 460 

435 POKE G+BX<N>+40*BY<N),32 

440 BX<N)=BX(N>-1:BY(N)=BY(N>+3 

441 IF BX < N)=0 THEN BX<N>=39 

442 IF BY(N> = >24 THEN POKE G+BX<N>+960,1 
02 s BR(N> =0 :GOTO460 

445 POKE G+BXCN)+40»BY<N>,46 
460 NEXT N 

500 IF GM=1 THEN POKE G+X+40*Y,83 
502 NEXT K 
600 GOTO 115 
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2000 FOR N=0TO6 

2010 PRINTU2$; M a CRASH !" 

2012 IFX-NC1 THEN X=X+40 

2015 POKE G+X+960-N,102:POKE G+X+920-N,1 
04 

2020 PRINT"9 
2030 NEXT N 

2040 Y=INT (RND <1 > * 1 1 + 1):X=39:BD=0:Y1=0 
2045 GM=0 s PL =PL +1 
2090 RETURN 

3000 PRINTU2$;"a BALE OUT! 

3005 IF GM=1 THEN GM=0:POKE G+40*Y+X,86: 

PRINT“a "!GOTO2040 

3010 Y1 = 1 :D5 =83 

3020 GM=1 

3030 RETURN 

4000 BD=BD+1 

4010 IF BD >=11 THEN Y1=-2:RETURN 
4020 BX < BD)=X:BY(BD)=Y +1 
4025 BR <BD ) = 1 
4030 RETURN 

5000 PRINTU4$;"aALL DESTROYED!” 

5010 PRINTU0*;“SMANOTHER GO? (Y/N)" 

5020 GET A*:IF A$="” THEN 5020 

5025 IF A$ ="N"THENPRINT"MTHANKYOU FOR PLA 

YING.":END 

5030 RUN 

7000 GET A*:A=VAL<A$) 

7010 IF A = 2 THEN Y = Y+1+Y1 : GOTO 143 
7020 IF A =3 THEN Y = Y-1+Y1 : GOTO 143 
7035 A =0 
7040 GOTO 143 

3000 IF YY+<XX-X+W)/4<=Y ANO Y1=0 THEN 8 
100 

8010 IF YY<Y +1 THEN 8100 
3050 B=24:GOTO320 
8100 A =INT(X/4-<24-Y)/3) + 1 
8110 IF A<1THEN A=9-A 
8120 IF A>9 THEN A=A-9 
8195 G0T0312 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US =1024 s UC =55296 :UG =53281 
63904 UB = 53280:UV = 54296 :UA=54277 :UD=5427 
3 : UH=54273 :UL =54272 



Blitz 91 


63905 UUI=54276! U0=0 : U0$= :U 1 = 1 :U l$= ,, a n 
!U2=£:U2$ ="3" 

63906 U3 = 5:U3$="U" :U4=6 :U4$="3“:U5=8:U5$ 
= ""s U6 =9 :U6$="B" 

639 10 U7=10:U7$= "O" :U8=13:U8$= "il" : U9= 14 : 
U9$=:UU=4:UU*= 

63915 UR=12:UR*= M a M :UE=7 :UE*=-O":UF=11:U 
F*="8"iRETURN 
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Pesca pericolosa 


L'idea di questo gioco è di prendere il maggior numero di pesci possi¬ 
bile, armati di una semplice fiocina e nuotando verso la preda cercan¬ 
do di prenderla. C'è però un problema: ci sono infatti numerosi squali 
in zona, che non lasciano prevedere niente di buono e anche se, per 
la maggior parte del tempo, sembrano voler solo vivere e lasciar vive¬ 
re, la loro reputazione, si sa, ne fa dei nemici pericolosi. 

L'altro problema serio che il pescatore deve affrontare è la riserva di 
ossigeno che ha una durata di soli tre minuti, per cui ad intervalli egli 
deve ritornare a galla per rinnovare la riserva. 


2 REM SCUBA GAME 

3 POKE 53269,0:REM CANCEL ALL SPRITES 

6 PRINT"LFLEASE WAIT A MOMENT FOR...S C 
UBA" 

10 REM SCUBA.WALLIYN 

20 GOSUB5000 
25 GOSUB3000 

30 POKEV + 16,0 :POKEV+21,0 

40 FORK =0TO7:POKEV+K *2,0 :POKEV + K*2 + 1,0:N 
EXTK 

50 REM SPRITE NUMBERS ARE AS FOLLOWS... 

51 REM 0,1 AND 2 ARE SHARKS 

52 REM 3,4,5 ARE FISH 

53 REM 6 IS NGT USED 

54 REM 7 IS THE SWIMMER 

60 REM X ( 7 > AND YC7) ARE SCREEN PLACINGS 

61 REM XX < 7 ) IF 1 THEN X<7> OVER 255 

62 DIM X<7>,Y<7>,XX<7> 

63 REM FD < 5 ) ARE FISH DEPTH STEPS 

64 DIM FD <5) 

65 REM FM < 5 > ARE FISH MOVE STEPS 

66 DIMFM <5) 

67 REM FS < 5 ) ARE FISH RANDOMISER VARIABL 
ES 

68 DIM FS < 5 ),FU < 5 > 

70 REM EXPAND SHARKS 

72 POKEV +29,7 :POKEV +23,7 
80 REM FU < 5 ) ARE SPRITE COLOURS 
SI REM SHARKS ARE ALUJAYS BLACK 
82 FU<0)=U0:FU<1)=U0: FU<2>=U0 




Pesca pericolosa 93 


83 REM FISH ARE DIFFERENT COLOURS... 

34 REM FISH SPRITE 3 IS LIGHT RED 
85 FU <3 ) =1)7 

36 REM FISH SPRITE 4 IS LIGHT BLUE 

87 FU(4)=U9 

88 REM FISH SPRITE 5 IS YELLOLI 

89 FU( 5 > =UE 

90 REM SWIMMER IS LIGHT GREY 

91 POKEV +46,UR 

92 FORJ =0TO5:POKEV + 39 +J, FU(J):NEXTJ 

99 REM * * * S = S WI MME R SPRITE TYPE * * * 

100 GGSUB4000 

120 REM FISH SETUP 
130 F'OKEV +16,0! FORK =3T05 
135 FS <K) = 1 ! IFRND ( 1 ) > .5THEN150 
140 XX ( K ) =0 ! X < K )=0 : Y ( K ) = INT(RND <1)*130+8 
0 ) 

145 FS=4:FM(K) = INT(RND (1)*2+2):FD(K) = INT 
(RND(1>*5-2> 

148 POKE2040+K,(240+FS):GOTO160 
150 XX < K) = 1s X <K)=98 !Y<K) = INT(RND <1)*130+ 
80 ) 

155 FS =5 !FM(K)=- INT(RND(1)*2+2):FD(K) = IN 
T(RND(1>*5-2> 

156 POKEV+16,PEEK(V+16)+£tK 

158 POKE2040+K,(240+FS):GOTO 160 
160 POKEV +K *2,X(K >:P0KEV+K*2+1,Y(K) 

165 NEXTK 
180 POKEV + 21,184 
182 REM ENABLE SWIMMER SPRITE 
190 X(7) = 197:Y(7)=53 :POKEV+46,UF:S=11 :T = 
1 

200 REM GET CONTROL KEY 
210 K1=PEEK(197 > 

220 IFK1=12THEN230 

221 IFT=1THEN300 

222 IFK1=9THEN240 

223 IFY(7)< 75THEN300 

224 IFK1=13THEN250 
226 IFK1=10THEN260 

228 Y(7)=Y(7)+1:IFY(7)>£20THENY(7)=220 

229 GOTO300 

230 IFT=1ANDY(7)>75THENT=0:POKEV+46,UR:T 
A=TI+10800 
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^3^ Y(7)=Y<7)+4: IFS=11THENS=10 :G0T0234 

233 S=11 

234 IF Y < 7 )>£20THENY < 7)=220 
236 GOTO300 

240 Y < 7)= Y < 7)-4 : IFS = 11THENS=10 :G0T0244 
242 S=11 

244 IFYC7)<118HNDX(7)>183ANDX <7)<206THEN 
£48 

245 IFY < 7)< 76THENY < 7 > =76 

246 GOTO300 

248 X(7)=195:IFY<7><54THENP0KEV+46,UF:T= 
1 

249 GOTO300 

250 X(7 ) =X < 7)+5 ! IF < S < 4ANDS >1)THENS=10 :GO 
T0254 

£5 1 IFS=0THENS=1 :G0T0254 
252 S =0 

£54 IFXX<7>=1THEN257 

255 1FX(7)>255THENXX <7 > = 1:X<7)=4:P0KEV+1 
6 , PEEK <V+16)+128 

256 GOTO300 

257 IFX <7)>78THENXX <7)=0:X<7>=19:POKEV+1 
6 , PEEK <V+16)-1£8 

£58 GOTO300 

£60 X < 7 > =X(7)-5 : IFS<£THENS=1 1 :G0T0264 
26 1 IFS =2THENS = 3 :G0TG264 
262 S =2 

264 IFXX < 7 ) = 1THEN267 

265 IFX <7 X19THENXX(7) = 1 : X <7)=78 :POKEV+1 
6 , PEEK < V + 16 > + 128 

266 GOTO300 

£67 IFX( 7 )<0THENXX< 7 ) =0 : X< 7 ) =251 :POKEV+l 
6 , PEEK(V+16)-128 
268 GOTO300 

300 PGKE2047,S+£40:POKEV+14,X<7) 

310 POKE V+15,Y<7> 

320 Q=PEEK CV+30): IFG< >0THEN330 
325 GOTO400 

330 REM COLL ISION OF SPRITES 

331 IFQ = > 128THEN333 

332 GOTO400 

333 FORK=0TO5:IFFS)=0THEN340 

334 IFQAN02 tKTHEN336 

335 GOTO340 
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336 XF =ABS <<XX(7)*255+ X<7))-<XX<K)*255+X 
<K ) ) > 

337 YF=ABS <Y<7)-Y<K)) 

338 IFK < 3ANDXF < 25ANDYF <£0THEN345 

339 IFK >£ANOXF <14ANDYF <14THEN345 

340 NEXTK:GOTO400 

345 IFK < 3ANDFS < K)=£THEN615 
347 IFK < 3THEN340 

350 FORL =1TO£0:POKEV + 39 +K , U 1:FORM=1TO10: 
NEXTM 

355 POKEV+ 39+K,U0:FORM=ITO 10 :NEXTM:NEXTL 
360 POKEV+ 39+K , FU(K > 

365 P=P + 1 : IFXX <K > = 1THENPOKEV+16, PEEK(V + 1 
6 ) -£ tK : XX <K ) =0 

370 POKEV+K*2,0:POKEV+K*2+1,0:X<K>=0:Y<K 
) =0 

380 POKEV +£1,PEEK(V +£1)-£tK:FS<K ) =0 

400 REM FISH RANDOMISER 

410 R = INT<RND <1>*100): IFR>8THEN500 

415 IFR >5THENR = R-3 

4£0 IFFS<R)< >0THEN450 

430 FS <R ) = 1 : IFRND <1)>.5THEN440 

434 XX(R)=0:X<R)=0:Y<R> = INT <RND <1>*130+8 
0 > 

435 POKEV+ £ 1 ,PEEK<V+£1 > +'£tR 

436 FS=4:FM<R) = INT < RND <1>*£+£>:FD<R> = INT 
< RND <1> *5-£ > 

437 IFR < 3THENFS =6 

438 POKE2040+R,<£40+FS>:COTO500 

440 >^X < R > = 1 : X <R > =35 : Y(R > = INT (RND < 1 >*130 + 
30 > 

442 POKEV+21,PEEK<V+21>+2tR 
444 POKEV+16,PEEK <V+16)+£ tR 

446 FS=5:FM<R>=-INT < R NO <1>*£+£):FO(R) = IN 
T <RND(1> *5-2 > 

447 IFR<3THENFS=8 

443 POKE2040+R,(240+FS >:GOTO500 
450 IFFS < R > = 1THEN460 

455 FS <R > = 1 : IFRND(1> >.5THEN436 
457 G0T0446 

460 FD <R > = INT<RND <1>*9-4 >:FM<R>=FM<R>*4* 
<INT < RND <1>*£>*£- 1 > 

470 FS<R>=2: IFROTHEN480 

472 IFSGN<FM(R >> = 1THENPOKE2040+R,(£40+4) 


96 Pesca pericolosa 


474 IFSGN<FM<R>) = - 1THENPOKE2040 +R,<240+5 

> 

475 GOTO500 

480 IFSGN < FM < R )) = 1THENPOKE2040+R,<240 + 7) 
490 IFSGN<FM<R)) = - 1THENPOKE2040 +R,<240+9 
) 

500 FORK=0TO5:IFFS<K>=0THEN600 
510 X<K)=X<K)+FM<K):Y<K)=Y<K>+FD<K) 

512 IFY < K)< 80THENY<K >=80 

513 IF Y < K > >220THENY < K > =220 

5 15 IFRND <1)>.92THENFD <K) = INT < RND <1 )*5-2 

> 

520 IFXX < K ) ANDX <K >< 0THEN550 
525 IFX < K) < 0THEN560 
530 IFX < K)>255THEN540 
535 IFXX <K> ANDX <K )>98THEN570 

539 GOTO590 

540 XX <K) = 1s X <K)=X <K)-255 ! POKEV+16,PEEK < 

V + 16 >+2 tK 
545 GOTO590 

550 XX<K)=0:X<K)=255+X<K)!P0KEV+16,PEEK< 

V + 16 ) -2 tK 
555 GOTO590 

560 XX < K ) = 1 ! X < K)=95 +X < K ) :POKEV+16 , PEEK<V 
+ 16 > +2 tK 
565 GOTO590 

570 XX <K)=0 s X <K)=X <K) -98 :POKEV+16,PEEK< V 
+16)-2tK 
575 GOTO590 

590 POKEV + K *2 ,X <K ):POKEV+K*2+1,Y<K) 

600 NEXTK:GOTO700 
615 REM SUIIMMER EATEN! 

620 FGRL = 1TO20:POKEV+46,1) 1 :FORM=ITO 10 : NE 
XTM 

625 POKEV+ 46,U0:FGRM=1TO10 :NEXTM:NEXTL 
630 POKEV + 46,UR 

632 PR INTU7$"a3\IO FI3H! YOU'RE THE SUPPE 
R ! " 

635 PRINTU7$;"aSSEATEN BY A SHARK!" 

640 GOTO820 

700 PRINTU0$ ,, a3 r ISH CAUGHT= "P; U9$ 

705 I FT= 1 THENPR INT 11 MMN " : GO 

TO200 

710 PRINT"aaaAIR LEFT= ■■■■!" INT< <TA 

-TI>/60) 
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720 IF < TA-TI)<0THEN800 
750 GOTO200 

800 PRINT"a 

805 PRINTU1S;"aa-P-FISH BROUGHT BACK FOP 
SUPPER." 

810 PRINTU7*; "aHSF'UN OUT GF AIR..." 

820 PRINTUÌ*; "3BWAN0THER GO <Y,N>?" 

830 GETA$:IFA$<>""THEN830 
340 GETA$:IFA$=""THENS40 
850 IFA$="Y"THENRUN 

860 IFA$= "N"THEN'PR INT"THANKYOU FOR PLAYI 
NG 33CUBA": END 
870 GOTO840 
999 END 

3000 REM SCUBA INSTRUCTIONS 

30 1 0 POKEUG , U9 : POKEUB ,U2 : PR INTU2S " 1 J ,, TAB < 

1 5 ) " S C U E A " 

3030 PRINTUF*; "YOU ARE A SCUBA DI VER ON 
A RAFT ABOUT 

3040 PRINT"TO SWIM OFF AND CATCH FISH FO 
R SUPPER." 

3050 PRINT"HOLD DOWN....A...TO SWIM TO T 
HE LEFT" 

3060 PRINT-HOLD DOWN- S...TO SWIM TO - 

HE RIGHT" 

3070 PRINT"HOLD DOWN- W...TO SWIM TO T 

HE SURFACE" 

3080 PRINT-HOLD DOWN-2. . .TO SWIM TO T 

HE BOTTOM" 

3100 frint-hyou ARE ARMED WITH A HAND SP 
EAR AND 

°110 FRINT"YOU SIMPLY NEED TO SWIM WITHI 
N REACH OF " 

3120 PRINT"A FISH TO CATCH IT FOR DINNER 

i « 

3130 PRINT-BEWARE OF THE SHARKS...THEY A 
RE QUITE 

3140 PRINT"HARMLESS BUT CAN SUDDENLY OPE 
N THEIR 

8150 PRINT"MOUTHS AND THEN BECOME VERY N 
ASTY!" 

3155 PRINT"A SPEAR WONT HELP YOU AGAINST 
SHARKS 

31 60 PRINT-THERE 1 S A MAX. OF 3 FISH AND 
3 SHARKS 
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3170 PRINT"IN THE SEA AT ANY ONE TIME." 
3180 PRINT"FISH MAY SUDDENLY CHANGE COUR 
SE OR 

3190 PRINT"SPEED IF THEY BECOME RANDOMLY 
PANICKY!" 

3200 PR I NT " HaJHEN YOU ENTER THE WATER, YO 
U HAVE 3 

3210 PRINT“MINS. AIR SUPPLY. YOU MAY RET 
URN TO THE 

3220 PRINT"RAFT AS OFTEN AS YOU LIKE FOR 
MORE AIR. " 

3230 PRINT"A GOOD DIVER WILL GET AT LEAS 
T 20 FISH!" 

3250 PRINT"JS500D LUCK. PRESS ANY KEY TO 
START a" 

3260 GETA#: IFA$< >""THEN3260 

3270 GETA$: Q=RND < 1 ) : IFA3>=" "THEN3270 

32S0 RETURN 

4000 REM CLEAR SCREEN AND PRINT SEA 
4010 POKEUB,U0:POKEUG,U4 
4020 PRINT"J"U9$; 

4030 FORJ = 0TO3 
4040 PRINT"a 

Il ■ 

/ 

4050 NEXTJ 

4060 PR T NT " MHm>l>l MMMMMiMl>H " ; 

4070 PRINTU6$"a 

4080 PRINTU0*"minF+aih4nwHa»Hnii 

++■»*+" 


4 100 

PR INTU3* " MMaBramamq 


4 1 10 

PRINT" 

Il ■ 

* * * 


4 120 

PRINT" 

* * * * * * 

* * 

* 

Il ■ 

r 



4 130 

PRINT" 

* * * * # * * * 

* * 

** 

Il ■ 

r 



4 140 

PRINT" 

********************* 

* * * 

* " ; 



4 150 

PRINTU5S;" 

4 H 


4900 

RETURN 

3 


5000 

REM SPRITE 

DATA SUBROUTINE. 

..'64 

500 1 

REM SPRITE 

BASE VARIABLE = 

’ V ■ 

5002 

V = 53248 
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5004 REM ALTER BASIC MAX MEMORY ANO VARI 
ABLE LOLJ MEMORY 

5005 P0KE52,60 :P0KE56,60 

5006 REM LOAD DATA INTO BLOCKS 240-UPWAR 
DS 

5007 FORK=0TO11 :FORJ=0TO62 

5008 READ A :POKE(240 +K)*64 +J , A :NEXTJ,K 
50 10 REM SUJIMMER RIGHT 1 

5020 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0r 0 
5030 DATA 0 , 0 , 0 , 0 , 0 ^ 3£ 

5040 DATA 31, 192, 112 , 31, 192, 152, 1 £ 

7 , 236 

5050 DATA 15, 255, 254, 127, £55, 238, 6 

4, 6 

5060 DATA 0 , 64, 31, 255, 0 , 1 , 2 £ 4 , 0 

5070 DATA 0, 0 , 0 , 0 , 0 , 0 , 0 , 0 

5080 DATA 0 , 0 , 0 , 0 , 0 , 0/ . 0 ^ g 

5090 DATA O, 0 , 0 , 0 , 0/ , 0 

5110 REM SUJIMMER RIGHT 2 
5120 DATA 0 , 0 , 0 , 0 , 0 , 0 r Q r 0 

5130 DATA 0, 0 , 0 , 0 , 0 , 0 , 0 , 0 

5140 DATA 31, 19£, 64, 31, 192, 112, l £7 

, 236 

5150 DATA 95, £55, £54, 79, £55, £38, £5 

2 , 6 

5160 DATA 0, 192, 31 , 255 , 6 4, 1, ££4, 3 


5170 DATA 0, 0, 0, 0 , 0 / 0/ 0 
5180 DATA 0, 0, 0, 0, 0/ 0/ 0 
5190 DATA 0, 0, 0, 0 , 0^ 0^ 0 

5210 REM SUIMMER LEFT 1 


5220 DATA 0, 0, 0 , 0 
5230 DATA 0, 0, 0, 0 , 
5240 DATA 248, 0 , 3 , 

6 


0 , 

0 , 

248, 


0 

0 


12 


0 , 

0 , 


0 

3 

55 , 


254, 


2 


5250 DATA 127, 255, 241, 
1 , 192 


119, 255, 19£, 


5260 DATA 96, 255, 248, 56, 14, 0 , 8 , 0 

5270 DATA 0 , 8 , 0, 0 , 8 , 0, 0 , 0 
5280 DATA 0 , 0 , 0 , 0 , 0/ 0 

5290 DATA 0, 0 , 0 , 0 , q f 0 

5310 REM SUJIMMER LEFT £ 

5320 DATA 0 , 0 , 0 , 0 , 0r 0 , 0 
5330 DATA 0, 0 , 0 , 0 , 0 ^ 3 
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5340 DATA 248, 0, 3, 248, 0, 55, 254, 0 
5350 DATA 127, 255, 255, 119, 255, 249, 

1 , 192 

5360 DATA 13, 255, 248, 9, 14, 0, 16, 0 

5370 DATA 0, 0, 0, 0' 0 ' 0 ' 0 ' 0 

5380 DATA 0, 0, 0, 0/ 0/ 0 ' 0 ' 0 

5390 DATA 0, 0, 0; 0 ' 0r 0 

5410 REM SMA2L FISH RIGHT 

5426 DATA 0, 0, 0/ 0 ' 0 ' 0 ' 0 

5430 DATA 0, 0, 0, 0/ 0/ 0/ 0 ' 0 

5440 DATA 0, 0, 0, 0, 0, 0/ 12, 0 

5450 DATA 4, 62, 0, 3, 125, 0, 1, 255 

5460 DATA 128, 3, 125, 0, 4, 28, 0, 0 

5470 DATA 0, 0, 0, 0/ 0 ' 0 ' 0 ' 0 

5480 DATA 0, 0, 0 r 0r 0r 0r 0 

5490 DATA 0, 0, 0, 0, 0 ' 0 

5510 REM SMALL FISH LEFT 

5520 DATA 0, 0, 0, 0/ 0 ' 0 ' 0 ' 0 

5530 DATA 0, 0, 0, 0/■ 0 ' 0 ' 0 ' 0 

5540 DATA 0, 0, 0, 0, 0 ' 0 ' 96 ' 0 

5550 DATA 0, 240, 64, 1 , 125, 128, 3, c .5 

5 

5580 DATA 0, 1, 125, 128, 0, 112, 64, 0 

5570 DATA 0, 0, 0/ 0" 0 ' 0r 0 ' 0 

5580 DATA 0, 0, 0, 0/ 0 ' 0 ' 0 ' 0 

5590 DATA 0, 0, 0, 0 ^ 0 <■ 0 ' 0 

5810 REM SHARK RIGHT 

5620 DATA 0, 0, 0 r 0 r 0/ 0 f 0 ' 16 

5630 DATA 0, 0, 24, 0, 0, 28, 0, 128 

5640 DATA 30, 0, 192, 31, 0/ 192, 63, 12 

8 

5650 DATA 36, 255, 192, 115, 255, 248, 1 

£7, £55 

5660 DATA ££3, 127, 255, £54, 127, £55, 

84, 113 

5670 DATA £55, 252, 224, £55, 240, 128, 

63, 192 

5680 DATA 0, 30, 0, 0, 0' 0 ' 0 ' 0 

5690 DATA 0, 0, 0r 0/ 0? 0' 0 

5710 REM SHARK RIGHT OPEN MOUTH 

5720 DATA 0, 0, 0r 0r 0/ 0 r 0r 16 

5730 DATA 0, 0, 24, 0, 0/ 28, 0, 128 

5740 DATA 30, 0, 192, 31, 0, 192, 63, 12 

8 
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5750 DATA 96, £55, £55, 115, £55, £££, 1 

£7, £55 

5760 DATA £44, 1£7, £55, £08, 1£7, £55, 

64, 113 

5770 DATA £55, £33, ££4, £55, £53, 1£8, 

63, 193 

5780 DATA 0 , 30, 0 , 0, 0 , 0 , 0 , 0 
5790 DATA 0, 0 , 0 , 0 , 0 , 0 , 0 
5810 REM SHARK LEFT 
5830 DATA 0, 0,0, 0 , 8 , 0, 0 , 24 
5830 DATA 0, 0 , 56, 1, 0 , 120, 3, 0 

5840 DATA £48, 3, 3, £53, 7, 15, £55, 14 

£ 

5850 DATA 59, £55, £54, £55, 255, £5£, 8 
5, 255 

5860 DATA £54, 63, £55, 206, 15, 255, 6 , 

5870 DATa £52, 3, 0, 240, 0, 0 , 96, 0 

5830 DATA 0, 0 , 0, 0, 0 ' e ' 0 

5890 DATA 0, 0 , 0 , 0 , 0 , 0 , 0 

5910 REM SHARK LEFT OPEN MOUTH 
59£0 DATA 0, 0, 0 , 0 , 0, 0, 0, £4 

5330 DA T A 0, 0 , 56, 1, 0 , 120 , 3 , 0 

5940 DATA £48, 3, 63, £52, 7, 247, 255, 
142 

5950 DATA 95, 255, 254, £3, £55, £5£, 5 , 
127 

5960 DATA £54, 43, 255, £06, 63, £55, 6 , 
7 

5970 DATA 25£, 3, 0, £40, 0 , 0 , 96, 0 
5380 DATA 0, 0 , 0 , 0 , 0 , 0 , 0 , 0 

5990 DATA 0, 0 , 0 , 0 , 0 , 0 , 0 

60 10 REM SUJIMMER LEFT HAND UP 
6020 DATA 0 , 0 , 0 , £, 0/ 0 , 0 

6030 DATA 0 , 2 . 56 , 0 , 56 , 0, £ 

6040 DATA 56, 0, 3, 16, 0, 1 , £55, 0 

6050 DATA 0, 1£5, 128, 0, 124, 1£8, 0, 1 

24 

6060 DATA 1£ 8 , 0 , 124, 128, 0, 125, 1£8, 

0 

6070 DATA 110, 0 , 0 , 10 £, 0 , 0 , i 0£/ 0 
6080 DATA 0, 10 £, 0 , 0 , i 0£/ 0 , 0j 103 
6090 DATA 123, 0 , 96, 0 , 1 , £24, 0 
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6116 REM SWIMMER RIGHT HAND UP 
6120 DATA 0, 0, 0, 0f 0 ' 0 ' 1 
6130 DATA 0, 0, 57/ 0, 0 , 57, 0, 0 
6146 DATA 57, 0, 0, 13/ 0 / 1/ £54, 0 
6150 DATA 3, 124, 0, 2, 1£4, 0, 2, 124 

6160 DATA 0, 2, 124, 0, 3, 124, 0, 0 

6170 DAJA 236, 0, 0, 204, 0, 0, 204, 0 

6180 DATA 0, 204, 0, 0, 204, 0, 3, 204 

6180 DATA 0, O, 12, 0, 0, 15, 0 

7800 REM ***************************** 
7032 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM i.OMLY USE THESE COLGURS) 

70 10 U0=0!U0$= SREM BLACK 

7620 U 1 = 1 ! U 1 $■= "3" : REM UH ITE 

70S6 U2 =2 !U2$=" 3” s REM DARK RED 

7048 U3=5sU3$="U" 5 REM GREEN 

7850 U4=6 :U4$="3"! REM DARK BLUE 

7060 U5 = 3SU5$=CHR$<129>: REM GRANGE 

7070 U6=3:U6*=: REM BROUN 

7050 U7=10 :U7^="©"sREM PINK 

7030 U8= 13 : U8*= "il" :REM LIGHT GREEN 

7 186 US=14 !U9$= 5 REM LIGHT BLUE 

7 118 UU = 4 !UU$="H"iREM PURPLE 

7 123 UR=12 :UR$="a" * REM LIGHT GREY 

7 130 UE = 7 s UE$="H" ! REM LIGHT YELLOU 

7 140 UF=11:UF£="H": REM DARK GREY 

7200 REM SCREEN ’POKE ’ CODES FOR 64. 

7210 US =1024 ! REM SCREEN POKE CHARACTER 

7220 UC=55296 ’• REM SCREEN POKE COLOUR 

7230 UG=5328lsREM BACKGROUND COLOUR 

7240 UB=53280:REM SCREEN BORDER COLOUR 

7300 REM SOUND ’ POKE ‘ CODES FOR 64. 

7310 UV=54296! REM VOLUME FOR 3 VOICES 
7320 UA=54277: REM ATTACK FOR VOICE 1 
7330 UD = 54278 : REM SUSTAIN FOR VOICE 1 
7340 UH=54273:REM HIGH BYTE FOR VOICE 1 
7350 UL=54272 s REM LOW BYTE FOR VOICE 1 
7360 UL1=54276 : REM UAVEFORM FOR VOICE 1 
7400 RETURN 

7500 REM ***************************** 
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Anche il più piccolo orto di casa può essere produttivo se si sanno pia¬ 
nificare gli spazi attentamente. Che verdure scegliere, per esempio? 
Quanto spazio ci vuole fra i filari di fagiolo? Ci sta la lattuga 
all'estremità dell'orto? Bene, questo programma può rispondere alle 
vostre domande. Permette infatti di abbozzare la piantina di un orto 
sullo schermo e poi di stampare una nota di acquisto con tutti i semi 
e i bulbi necessari. Sullo schermo, gli spazi da tenere puliti dalle erbac¬ 
ce sono contrassegnati dal segno « + ». Buon divertimentoi 


5 REM PLOTPLANNER.WALWYN 

8 GOSUB63900 

20 POKEUB,U6 s POKEUG,U6:PRINTU1 
PLOT PLANNER- 

40 PRINT"BB9THERE IS SPACE POR 25 DIFFERE 
NT ■ 

45 PRINT"HVARIETIES OF VEGETABLE.” 

48 PRINT"HAT PRESENT THERE ARE 18 IN THE 
DATA BANK" 

50 PRINT"HBUPDATE OR ALTER THE 'READ* AN 
D 'DATA'" 

60 PR INT"BBTATEMENTS UIHERE NECESARY" 

70 PRINT"HIN LINES 100-110,£00-,400- & 6 
00 -" 

80 PR INT" 1S5PRESS ANY KEY" 

81 GET A#:IF A$=“" THEN 81 

85 DIM V*<25>,C$<25>,D<25>,Y<25>,Y*<£5> 
87 DIM N<25>,N$<25>,P$<£5),T<25> 

90 CH$<1)="LEGUMES":CH$<£)="SALADS":CH$< 
3 > = "ROOTS" 

91 REM V*<X> IS THE NAME OF THE VEGETABL 
E 

92 REM C$<X> IS THE INITIAL LETTER OF TH 
E FAMILY 

93 REM UIHERE L=LEGUMES, S=SALADS, R=ROOT 

s 

94 REM D(X) IS THE RECOMMENDED DISTANCE 
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IN FEET BETWEEN ROUJS 

95 REM Y<X> IS THE MAXIMUM YIELD PER £5 
FOOT ROUI 

96 REM Y$<X> IS THE YIELD DESCRIPTION 

97 REM N<X> IS THE AMOUNT OF SEEDS/BEANS 
REQUIRED 

98 REM NS(X) IS THE MEASURE DESCRIPTION 
OF SEEDS/BEANS REQUIRED 

99 REM P$(X> IS THE IDENTIFYING LETTER U 
SED ON THE SKETCH 

100 FOR A =1TO 18 

105 READ V$<A>,C$<A>,0<A>,Y<A>,Y$<A> 

110 READ N<A>,N*<A>,P*<A> 

180 NEXT A 

800 DATA "PEAS ",L,3,60,"LBS",0.5, "PINTS 

Hp II 

810 DATA "MANGETOUT",L,3,60,"LBS",0.5,"P 

INTS","M" 

880 DATA "BROAD BEANS",L,2,20,"LBS",0.12 
,"PINTS", M B" 

830 DATA "FRENCH BEANS",L,£,38,"LBS",0.£ 
5,"PINTS","F " 

840 DATA "ONIONS",L,1,£5,"LBS",50,"BULBS 

Il II Q H 

850 DATA "SHALLOTS",L,1,15,"LBS",1, LBS 
860 DATA "LEEKS" , L , 1 ,38,"LEEKS",0.12,"OZ 

n H L, M 

400 DATA "MARROWS",S,3,40,"FRUIT",9,"SEE 

DS","M" 

410 DATA "TOMATOES",S,3,40,"LBS",0.12,"O 

^ Il H J« 

480 DATA "CUCUMBERS",S,£,£5,"CUES. ", 13 , " 
SEEDS“,"R" 

430 DATA "CELERY",S,£,30,"LBS",0.12,"OZ" 

Il Q M 

440 DATA "LETTUCE",S,1,£5,“HEADS",0.1£," 
OZ " , " L “ 

450 DATA "ENDIVE",S,1,£5,"HEADS",0.13,"O 

Z " " E " 

600 DATA "ARTICHOKES",R,2,36,"LBS",1£,"T 
UBERS","A" 

610 DATA "BEETROOT",R,1,38,"LBS",0.35,"0 

Z " , " B " 


L'orto 105 


680 DATA "PARSNIPS",R,1,50,"LBS",0.25,"0 
2","P ” 

630 DATA "CARROTS",R,1,20,"LBS",0.12,“02 

Il II Q II 

640 DATA "SPINACH",R,1,20,"LBS",0.5,"02" 
, "S" 

800 P0KEUG,U3:PRINTU2$;"J 
810 PRINT"LEGUMES (L) 

812 PRINT"M3ALADS <S) 

814 PRINT" JJ300TS <R ) 

817 PRINT"H" 

818 G=0:INPUT"WHICH TYPE";X$ 

S19 IF X$="L"THEN Q=1 

820 IF X# ="S"THEN Q=2 

321 IF X$ ="R"THEN D=3 

322 IFQ=0THEN81S 
823 PRINT'JF*; 


825 PR I NT" 

326 PRINT" 

327 PRINT" 

828 PRINT" 

329 PR I NT 11 

330 PRINT" 

S31 PRINT" 

832 PRINT" 

833 PRINT" 

834 PRINT n H 

835 PRINT"TYPE 


I 

I 

I X FT. 


Y FT. 

IN YOUR PLOT SI2E IN FEET 


836 INPUT“FIRST ‘X 1 CMAX 18 FT.)";X 
337 INPUT"& NOLI 1 Y' CMAX 38 FT.)";Y 

838 IFX >180RY >380RX < =0ORY< =0THEN PRINT"□ 
QU" s G0T0835 

839 POKEUG,URtPRINTU2S;" LMM tF YOU'VE ALR 
EADY PUT YOUR" 

840 PRINT*SPARGET YIELDS IN FOR U CH$<Q) 
84 1 PR INT"SAND YOU UJANT A PLOT SKETCH 

842 PR I NT " HJ5TRA IGHT AWAY THEN TYPE ' M ' . " 

843 PRINT-MMDTHERWISE TYPE ANY LETTER... 


844 GET U»s IF Ll$= " "G0T0844 

845 IF W* = "M"G0T0885 

847 FOR J=1T025 

848 POKEUG ,U6 : PR INTUE*; tu 
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$<q > M ******** 

849 IF X$=C*<J> G0T0853 


851 

NEXT J 



852 

G0T0875 



853 

PRINT"BNAME 

H V*<J > 


854 

PRINT"BSKETCH LOGO 

”P$<J) 


855 

PR INT“HYIELD PER 25'ROLJ 

"Y< J)" 

“Y$( 

J> 




856 

PRINT"KMO. PER 25'ROLI 

" N < J ) " 

" N$< 


J) 

858 PRINTU7$; 11 MMTARGET YIELD IN "Y*<J> 

859 PR INTU7S; 11 MBM ( IF NONE TYPE '0'> 

II 

860 input h hh“;t<:j) 

862 PRINT"iJ 
865 NEXT J 

875 PR INT" *J5HBJTHAT ' S ALL THE "CH$<Q> 

877 PR I NT 11 Mino YOU LIANT A MAP DRALJN NOLI? 

< Y/N ) 

879 GET LJ$: IF = " "G0T0879 

880 IF W$="N" GOTO800 

885 G =US +80 

886 H =U3 +12 1 

887 R =0 :S =0 

388 P0KEUG,U3:PRINTU7$;"JU"CH$<Q>- IN PL 
OT "X" BY "Y:POKEUG,UF 

890 PRINT"(EACH LETTER OR BLANK =1 SQ FO 


OT > 

II 


900 

XX=X+ 1 


90 1 

YY = Y +1 


902 

FORA=1 TO Y 


904 

POKE G +A, 100 


906 

POKE G +XX *40 +A 

r 93 

907 

NEXT A 


908 

FOR A =1 TO X 


910 

POKE G +A *40,103 


9 12 

POKE G+YY +A *40 

, 101 

913 

NEXT A 


9 18 

FOR J = 1T025 


320 

IF C$CJ>=X$ G0T0924 

922 

NEXT J 


923 

GOTO2000 


924 

U=T<J>/Y<J)*25 


925 

IF T< J > =0 THEN 

NEXT J 
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928 U =INT<U) 

930 R=S 

938 IFR +U >Y G0T0942 
940 S=U+R-1 :U=0:G0T0943 

942 S=Y-1:U=U-S+R-1 

943 IF D(J)=3 G0T0975 

944 IF D(J)=2 G0T0955 

945 FORK=RTOS:GOSUB7000:POKE H +K,ASC <P$( 
J >)-84 

946 NEXT K 

947 S=S + 1 

948 IF E >0 ANO W>0 THEN E=0 

949 IF U< =0 ANO S>=Y-1 THEN H=H+E+W+40:S 
*0 :W=0: E *0 J NEXT J 

950 IF U<*0 THEN NEXT J 
952 H=H+E +W+40 : S=0 

954 W=0: E=0 :GOTO930 

955 FORK=RTOS:GOSUB7000:POKE H+K,ASC(P*< 
J >)-64 

957 NEXT K 

959 H = H +40 

960 FORK=RTOS:GOSUB7000:POKE H+K , ASC< " + “ 

) 

961 NEXTK 

962 H = H-40 
964 Ul=40 
970 G0T0947 

975 FOR K=RTOS s GOSUB7000:POKE H+K,ASC("+ 
" ) 

977 NEXT K 
979 H =H + 40 

981 FOR K =RTOS:GOSUB7000:POKE H+K,ASCCP* 
< J> >-64 
983 NEXT K 
985 H =H +40 

987 FOR K =RTOS '• GOSUB7000 : POKE H+K,ASC("+ 

■ > 

989 NEXT K 
991 H=H-80 
993 E=80 
995 G0T0947 

2002 IFH > =G +XX *40THEN2005 

2003 GOTO2010 
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2005 PR INT"************PLOT TOO SMALLI** 
*********** " 

2010 PRINTU9$/"flRH REQUIREMENTS FOR ABOV 
E IF HAPPY.“ 

20 15 PRINT"^B CHANGE VEGETABLE LAYOUT O 
N SKETCH.” 

2020 PRINT"aS« CHANGE PLOT SIZE. ^RESS 
RELEVANT KEY.®" 

2022 GETA$:IFA$=""THEN2022 

2023 IFA$="R"THEN3000 

2024 IFA$="V"THEN2027 

2025 IF AS= " S " THENPR I NT " LJ" :G0T0825 

2026 GOTO2022 

2027 S=0:PRINTU7S 

2028 INPUT"LETTER IDENT OF VEGETABLE"; 0* 

2029 INPUT "NEW YIELD. " ' NY 

$ 

2030 NY=VAL < NYS)!FOR J = 1T025 
2032 IF p$<j:>=o$ THEN T<J)=NY 

2034 NEXT J 

2035 G0T0885 

3000 P0KEUG,U3:PRINTUFS;"LFOR YOUR CHOSE 
N PLAN FOR 

3005 PRINT"gTCH$<Q>" IN PLOT "X" BY "Y 
3010 PRINT-MTOU WILL NEED: 

3020 FOR J =1TO 25 

3025 IFC$(J>=X$ GOTO3040 

3030 NEXT J 

3037 GOTO3060 

3040 U = T < J)/Y<J) 

3042 D=U*N<J) 

3043 D=D* 100 : DD*= INT<0 ) » IFDD =0THEN3050 

3044 DD=DD/100:PRINTU2*; 

3045 PRINT"M"DD" ‘N*<J>" OF "V*<J>" <"T< 

J > Y* < J >" ) 

3050 NEXT J 
3060 PRINTUF*; 

3065 INPUT-JBUNOTHER PLOT TO PLAN <Y/N>" 

; A* 

3070 IF A$="Y" GOTO 800 

3080 PRINT" SHUBffTHANKYOU FOR USING MY SER 
V ICES! 

3090 PRINT"««HAPPY GARDENING.... 

4000 END 
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7000 REM CHECK NOT OFF SCREEN 
7010 IFH+K<2024THENRETURN 

7020 PRINT"******** *TOO LARGE FOR THE SC 
REEN*******" 

7030 GOTO2005 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US =1024 :UC =55296 :UG = 53281 

63904 UB = 53280 :UV=54296 :UA=54277 :UD =5427 
8 : UH =54273 :UL =54272 

63905 UU=54276 : U0=0 : U0*= ! U 1 = 1 : U 1 $= "3|" 

:U2=2tU2$="3" 

63906 U3=5 : U3$= "||" : U4 =6 : U4$= " 3 ” :U5=8:U5* 
=" n :U6=9:U6* ="R" 

63910 U7 = 10 : U7* = "0“ : U8 = 13 : US$= N il u : U9 = 1 4 : 
U9« ="U":UU=4:UU* ="|" 

63915 UR=12 :UR$="a":UE = 7:UE$="B":UF=11:U 
F$="B" : RETURN 
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Questo programma simula una corsa di cavalli suddivisa in due parti. 
Nella prima, ai giocatori viene presentata una tavola con dei contatori, 
uno per ogni giocatore, mossi a caso dal computer. In questa parte, i 
giocatori hanno l'opportunità di acquistare e vendere i cavalli, vincere 
o perdere denaro, addestrare i propri puledri e prepararsi per la fase 
due, cioè per la corsa vera e propria. Prima della corsa, ogni giocatore 
ha la possibilità di scegliere con quale dei suoi cavalli vuole gareggiare 
e come vuole piazzare le proprie scommesse. 

Terminata l'impostazione delle istruzioni per la corsa, inizia la corsa e il 
vincitore raccoglie sia il premio in denaro che le eventuali vincite sulle 
scommesse. 

All'inizio del gioco ogni giocatore ha a sua disposizione 10000 sterline 
che aumentano o diminuiscono in base all’andamento del gioco, come 
risulta dai saldi che vengono generati dal computer per ogni giocatore 
in modo che quest'ultimo sia sempre aggiornato, il gioco continua 
finché uno dei giocatori non raggiunge una vincita di sei cifre o 
finché non rimane a credito un solo giocatore. 

0 GOSUB63900 ! REM TOPTRAINER.U1ALWYN 

1 DATA ANTELOPE,BEETLE,CRISPY,DRAGON,EAS 
Y EEL 

2 DATA FOX HUNTER,GREAT KING,HEFFALUMP,I 
NDIANA,JEREMY 

3 DATA KANGA,LADY JANE,MARRY ME,NAUGHTY 
BOY,ORANGE MAID,PEACOCK 

10 G =US 

12 DIM H$<15),H<15),F< 15) ,P2< 1 1>,P<15) 

14 DIM A$<7>,A<7>,P1<11> 

16 DIM OV< 15),PQ<15),S<15),0<15),Q<3,15) 

,BH<7>, BA ( 7 ) 

20 FOR 1=0 TO 15 
22 READ H$<I) 

25 H <I) = INT < RND(1)*10+1) 

26 0<I>=-l 

29 NEXT I 

30 DATA 323,332,341,350,550,750,950,941, 
932,923,723,523 

40 DATA 414,374,334,294,413,373,333,293, 
412,372,332,292 

42 FOR 1=0 TOH 

43 READ P2 CI> sNEXT I 

44 FOR 1=0 TO11 

45 READ PICI>:NEXT I 
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50 FOR I =0TO 10 : READ WB$<I,-:NEXT 

60 DATA "HAS WON","DID VERY WELL","DID W 

ELL " , "PERFORMED NELL ENOUGH“ 

70 DATA "HAS HELD HIS FORM RATING","DID 
OK","WAS NOT TOO FAR BEH IND“ 

80 DATA "WAS NOT SO GOOD","WILL LOSE POI 
NTS","WILL LOSE MORE POINTS" 

85 DATA "WILL LOSE PRETTY HEAVILY" 

100 POKEUG,U4:POKEUB,U4:PRINTUR$; 

105 INPUT".JHOW MANY PLAYERS?<1-8>";N 
107 IFN<1ORN>8THEN100 
110 FOR I=0 TO N-1 

120 FRINT"SMAME OF PLAYER NO."1+1"? 

125 INPUT A$<I) 

126 IFLEN<A$<I>)>8THENPRINT"MAX 8 CHARAC 
TERS": GOTO 125 

128 A <I) = 10000 
130 NEXT I 
135 POKEUB,U2 

140 PRINTU5$;"J TOPTRAINER" 

141 PR INTU7S; "H'r'OU ALL START WITH 10000 
POUNOS EACH. " 

142 PRINT"EACH OF YOU IS AN 1 OWNER/TRAIN 
ER 1 OF 

144 PRINT"HORSES WHICH YOU CAN BUY,SELL, 
TRA IN UP, 

146 PRINT“AND ENTER FOR RACES. 

148 PR I NT " mmili rou MAKE MONEY OUT OF 
PRIZE MONEY" 

150 PRINT"IF YOU WIN A RACE AND ALSO BY 
BETTING" 

152 PRINT"ON YOUR- OR ANYONE ELSE 1 S - HO 
RSES 

153 PRINT " MMMMH ORSES IMPROVE WHEN TH 
EY RUN WELL 

154 PRINT"BUT LOSE VALUE WHEN THEY DON’T 
. IT COSTS"; 

155 PRINT"500 POUhdS TO ENTER A HORSE FO 
R THE RACE" 

157 PRINT" OiWil IF YOU GO BANKRUPT YOU 
LOSE THE 

158 PRINT"CHANCE TO TRA IN,RUN OR BET ON 
HORSES. 

159 GOSUB 9900 
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200 POKEUB ,U3: POKEUG ,UF : PR INTU2»; "LI" : M=0 
:POKEUG,UE:W3=0 

201 FOR 1=2 TO 38 STEP 9 
205 FOR J = 160 TO 960 STEP 40 
210 POKE G +J + I ,42 

215 NEXT J 
217 NEXT 1 

220 FOR 1=160 TO 960 STEP 200 

225 FOR J =2T038 

230 POKE G+J + I ,42 

235 NEXT J s NEXT I 

240 FOR 1=1T09 

245 POKE G+380+1*40,32:NEXT I 

250 FOR 1=12 TO 28 

255 POKE G+560+I,32:NEXT I 

257 FOR 1=0 TO N-1 

258 P < I > =0 :POKE G+P2<P(I>> + I,177 + I 

259 NEXT I 

260 PRINTU2*; 

262 PR INT"SDflBHHIlMiaSTART->aNCHANCEMh 

\SALEVUFRAININGU 

265 PR I NT " «MMMM TRft INI NGH "U4$;"BANK B 
ALANCE"U2*,* " UV.SALEVJU 

270 PR I NT " MMttUMn HANr.r nimmiiiUMi 
IMI» BC HANCEW 

275 PR I NT " «MBÌMB ASALEIflMTRA INI NGUMCHAN 

CElTWSALEVyi 

285 FOR J = 0 TO N-l 

286 R$="■": IF A<J)<0 THEN R$="a" 

287 PRINTU4$;TAB <22)" 

290 PR1NT"D"R$;TAB<12>J+1 TAB(14)A*(J) T 
AB(23)ACJ) 

295 NEXT J 

380 PRINTUFS;"a"R$;A$(M)"■'S GO..." 

310 QX.=RND< 1 >*6+1 

315 GCSUB9500 

320 POKE G +20,176 +QX 

330 GOSUB 9500 

335 POKE G+P2CP(M)) +M ,32 

337 X=P(M)+QX 

340 IF X>11 THEN X=X-12 

345 P(M)= X 

350 POKE G+P2(P(M))+M,177 +M 
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355 GOSUB3000 

358 IF P <M)=0 GOTO450 

360 ON P < M) GOTO 6000,7000,8000,7000,600 

0,7000,6000,8000,7000,6000,8000 

375 PR I NT “ 91" 

377 GOSU69900 

380 GOSUB9000 

385 IF A'.M>>=0 THEN 395 

390 REM 

395 M=M+1 

397 IF M=N THEN M = 0 
400 GOTO 280 

450 POKEUG,UF:POKEUB,U6:PRINTUE$; 

452 PR I NT " kJSOMEONE LANDED ON ‘START’, SO 
ITS TIME" 

455 PRINT"HBPOR A RACE... 

460 GOSUB9500 
550 FOR 1=0 TO N-l 
557 FOR J =0 TO 15 
560 IFO <J)< >I THEN 575 

562 PRINT"LH"A*(I>" 

563 PRINT"HS< J)" COST"H<J)*500“POUNDS 
" :GOSUB5400 

564 PR INT "gHILL a‘‘HS ( J > "■ RACE TODAY? < Y/ 
N> 

565 GET B$:IF B$=“" GOTO 565 

570 IFB*="Y" THEN A <I> = A <I>-500 : IF A<I>< 
0 THEN A<I)=A(I)+500 :GOSUB9960:G0T0585 
572 IF B$="Y" THEN S<J) = 1 :R=R + 1 :X=INTCH< 
J ) +F < J >,'2) : GOSUB5000 
575 NEXT J 
585 NEXT I 

599 PRINT" J" :POKEUG,U3:POKEUB,U7:2=0:A=0 

600 GOSUB 4000 

610 M= INTCRND < 1 )* 16 ) : IFUI3 >400THEN885 
615 IF S <M) =0 OR S (M) =5 THEN UI3 = U13+1 : GOT 
0610 

620 P<M)=P1<RR) 

630 RR=RR + 1 :S(M> = 5 

635 POKE G +P(M),129 +M 

636 Z=2+H<M)+F<M) 

640 IF RORR THEN 6 10 
650 FOR J=0 TO 15 

S55 IF S < J > < >5 THEN 662 
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653 H9=H(J)+F<J>: IF H9< = 1 THEN H9=l 

660 PRINTU4$; "gaa"TftB <A JLEFTSCH^CJ> , 1 > " = 
"INT<Z/H9> 

661 A = A + 1 0 

662 NEXT J 

664 FCR 1=0 TO N-1 :PRINTUBA; 

665 IF A(I> < =0THENPRINT"3S"A*<I)" HAS NO 
MONEY TO BET!":GOSUB9500:G0T0697 

666 PR INT"aSDDDS ARE BELOUI. S" A$< I ) " BET? 

< Y/N) IW 

668 GET A$: IF A$="" G0T0668 
670 IF A*="N" THEN 697 

672 PR I NT " 9N0UJ TYPE THE LETTER OF YOUR H 
ORSE ■ 

674 GET A$: IF A4> = " " G0T0674 
676 FOR J=0 TO 15 

678 IF A*=LEFT$(H*<J>,1> THEN BH<I>=J 

679 NEXT J 

680 PRINT H a 

II 

682 I NPUT " SAMOLI NT OF MONEY" ; A»: A=VAL <A*> 

683 IF A ( I > -A<0 THEN PR INT"S^IOT ENOUGH M 
ONEY IN THE KITTY!":GOSUB9500:GOTO680 

684 BA<I)=A:A(I> =A <I)-A 

697 NEXT I 

698 PRINT-a 

H 

699 GOSUB 4300 

700 FORJ = 0 TO 15 

710 IF S < J > < >5 THEN 850 
720 IF PQ < J ) =0 THEN 950 
730 IF PQ( J > = 1 THEN 970 
740 X = -1 :Y=40 
750 M=INT(RND <1)*5) 

755 X = X-Y 

760 IF M>2 THEN 780 

765 IF M=2 ANO Q<PQ<J>,J>>0 THEN Q<PQ<J) 
, J > =Q (. PQ ( J ) ,J)-1 JGOTO780 
770 GOTO 850 
780 FOR 1=0 TO 2 

785 IF PEEK<G+P<J)+X)=32 THEN 800 
787 X=X+Y 

789 NEXT I 

790 GOTO 850 
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800 POKE G +P < J ) ,32 

810 PCJ>=PCJ>+X 

820 POKE G+PCJ>,129+J 

823 IF P < J > >827 THEN PGKJ>=2:G0T0 835 
830 IF P < J > =465 OR P < J )=386 OR P(J>=387 
OR PCJ>=425 OR P C J > =426 THEN PQCJ> = 1 
835 IF P < J > =815 OR PCJ>=855 OR PCJ)=885 
THEN PQ < J > =3 

840 IF P < J > =803 OR P C J ) =843 OR P(J>=883 

THEN 860 

850 NEXT J 

855 GOTO700 

860 GOSUB9000 

86 1 PRINT "SITHE WINNER IS a ,, H$CJ> ,, B 

862 R=CRR+1>*1000 

863 PRINTACCO CJ > >" GETS "R" POUNDS PRIZE 
"sftCOCJ> >=ACO<J > > +R 

865 GOSUB9900 

867 GOSUB 9000 

868 Z = INTCZ/CHCJ>+FCJ>)): IF Z <1THEN Z = 1 

869 GOSUB 10000 : PR I NT “dHI"H$ ( J > " LION HT OD 
DS OF "Z"TO 1" 

870 FOR K =0 TO N-l 

872 IF BH CK > =J THEN fì <K > =A <K >+BA <K > *Z+BA 
<K> :PRINTA$<K> " 'S BET UIINS!" 

876 NEXT K 

879 GOSUB9900 

880 R =0 :RR =0 

881 FOR J =0 TO15 

883 PQ(J>=0:S<J>=0:P(J>=0 

884 NEXT J 

885 PRINT-J 

886 GOTO 200 

950 X=1:Y=-40:GOTO750 

970 X=40:Y=1 :GOTO750 

4000 FOR 1= 250 TO 267 

4010 POKE G + I,114 :NEXT I 

4020 FOR1=450 TO 463 

4030 POKE G + I,114 :NEXT I 

4040 POKE G +268,110 

4050 POKE G +464,110 

4060 FOR 1=0 TO 7 

4070 POKE G+40*I+504,115:NEXT i 

4080 FOR1=0 TO 15 
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4030 POKE G+40*I+308,107 :NEXT I 

4100 POKE G +948,125 

4105 POKE G +948,91 

4110 FOR 1=760 TO 783 

4120 POKE G + I,114 : NEXT I 

4130 FOR 1=920 TO 947 

4 140 POKE G + I,114 sNEXT I 

4150 POKE G +763,91 

4160 POKE G + 723,87 

4170 POKE G +774,91 

4130 POKE G +734,30 

4190 FOR 1=0 TO 3 

4200 POKE G + I*40+295,102 :NEXT I 

4210 POKE G+306,77 :POKE G+347,77 :POKE G + 

307.218 

4220 POKE G + 906,78 :POKE G+ 867,78 :POKE G + 

907.218 
4290 RETURN 

4300 FOR J =0 TO 3 

4330 POKE G + J*40+295,32 :NEXT J 

4340 FOR I =0TO15 s OV < I > = INT <H < I > *500 +F < I ) 

*250):NEXTI 

4350 RETURN 

5000 IF X< =0THEN PRINT"BTHIS HORSE IS BA 
DLY OUT OF FORM":G0T05100 
5005 PRINT"BF0INT5 FOR RACE..."X 
5010 FOR M=0 TO 3 

5020 IF M=3 THEN PRI NT"MTHE 4TH QUARTER 
IS THEREFORE "X :Q<M,J)=X:G0T05100 
5025 PRINT"|FACE ORDERS FOR QUARTER NO." 
M+ 1 “ (0-9) 

5030 GET B$sIF B$="" THEN 5030 
5035 B=VAL(B$> 

5040 X = X-B 

5050 IF X<0 THEN X=0:B=0 
5060 Q(M,J)=B 
5070 NEXT M 
5100 GOSUB 9900 

5105 FOR M=0TO3:Q<M,J)=0sNEXTM:RETURN 
5110 RETURN 

5400 PRINT" SDURRENT VALUE "F<J)*250+H<J>* 
500 

5405 IF <F<J ) *250+H(J)*500)<=0 THEN PRIN 
T “ UH ICH IS PRETTY BAD NEWS!!!" 
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5410 RETURN 

6000 QX=RND <1>*10+1 

6010 XX = RND( 1 >*6+1 

6020 X=XX*-250 

6030 IF QX>5 THEN X = -X 

6040 A <M> =A(M> +X : G0T0375 

7000 PR INT ,, a"A*<M> ” , M 

7005 PR INT ” DO YOU UIISH TO SELL A HORSE? ( 
Y/N> ■ 

7010 GOSUB9800 

7020 IFA*="N" THEN 7050 

7025 GOSUB9000 

7026 FORI=0 TO15 

7027 IF 0 <I> < >M THEN 7045 

7028 PR I NT " BDO YOU LIISH TO SELL ”H*< I>-? 
<Y/N> "J GOSUB9800 

7030 IF A*="N" THEN 7040 

703 1 GOSUB9000:BB =INT < H <I)*500+F(I> *250 > 
: IF BB<0THEN BB=0 

7032 PR INT"a"H*< I > " COST"H<I>*500". NOLI 
l-JORTH "BB 

7033 PRINT"<IF NO ONE WISHES TO BUY, TYP 
E 1 9 ’ > " 

7034 INPUT"afflFLAYER NO";B: 

7035 IF B =3 THEN PRINT"OK I 'VE BOUGHT IT 
FOR"BB:GOSUB9500 

7036 IF B =9 THEN O ( I )=- 1 : A<M)=A<M>+BB: GO 
TO7040 

7037 IFB >NORB <1THEN7034 

7038 INPUT"DAND AT LHAT PRICE";A 

7039 0 < I >=6-1 : A < M > =A < M ) + A : A ( B - 1 > = A(B-1 > - 
A 

7040 GOSUB9000 
7045 NEXT I 

7050 QX=RND<1>*15 

7060 IF 0(QXX>-1 THEN 7050 

7070 GOSUB9000 

7080 PRINT“g"A$(M>", I COULD. SELL YOU "H 

$<Q y.) 

7090 PR INT "FOR "H (Q*/.> *500 " <Y/N> 

7100 GOSUB9300 

7105 GOSUB9000 

7106 PRINT"9" 

7110 IF A*="N" THEN 375 


118 Top trainer 


7 1 20 F'R INT" SPK - DONE ! " : 0 <Q/.> =M: A <M) = A <M) 

-H ( QY. ) *500 : G0T0375 

3000 FOR 1=0 TO 15 

30 10 IF 0(I)OM THEN 8 100 

30 12 IF A < M ) < =0 THEN PRINT" aVOU‘RE BANKR 
UPT. . . ":GOSUB9500 : GO3UB9000:G0T08100 
8015 PR INT ,, a"f**<M> " ,HOW MUCH MONEY L1ILL 
YOU 

8020 PRINT"SPEND ON TRAINING n H$<I) 

3030 INPUT A 

8032 IF A <M)-A<0THEN PRINT"NO MONEY IN T 
HE KITTY!":GOSUB3500:GOTO8050 
8034 QX=RNO<1)*5+2 

3036 B = INT<Q - /.*A/3000 ): IF B >5 THEN B = 5 

8040 F<I>=F<I)+B:A(M)=A<M)-A 

3050 GOSUB3000 

8100 NEXT I 

3200 G0T0375 

9000 PRINT"9 

II 

9005 FOR C=0 TO 2 
9010 PRINT" 

":NEXT C 
9020 RETURN 

9500 FOR C=1 TO 1400:NEXT C 
9510 RETURN 

9800 GET A$:IF A*="" GOTO9S00 
9810 RETURN 

9900 PR INT’^RESS ANY KEYi" 

9910 GET B$:IF Bt="" GOTO 3910 
9920 RETURN 

9960 PR I NT " «"IO MONEY IN THE BANK. 

3962 PRINT"IT C03T3 500 POUNDS TO ENTER 
A HORSE AND 

9364 PR I NT 11 YOU ONL Y HA VE " A < I ' " LEF T i 

9965 GOSUB9300 

9966 RETURN 

100O0 P8( 1)=803 :P8(2 > =843 :P8(3 ) =883 

10005 GOSUB9000:PRINT"aFORM ALTERATICNS 
A3 RESULT OF THIS RACE" 

10006 PRINT"- 

~~ — - ■ 1 ■.* — ■■ - il • 

f 

10010 FOR P8=0TO10 :F0RP9=1T03 

10020 IF PEEKCG+P8<P9))=32 THEN 10050 
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10030 FOR W7 =0TO15 

1003 1 IF P<LJ7)< >P3(P3> THEN10040 

10033 PRINTH$(W7>;" ";WB$<PS> 

10034 F <W7 > =F <W7) + INT<(1£-P3)*.75 ) 

10040 NEXT W7 

10050 P8(P9)=P3(P3) + 1 :NEXT P9,P8 

10055 PRINT"HIF ANY HORSE HA3N'T BEEN ME 

NTIONED HERE M ; 

10057 PRINT"THEN IT HAS LOST 4 POINTS. I 
T 3H0ULD HAVE STAYED AT HOME ! " 

10058 GOSUB9500:GOSUB9900:PRINT"J” 

10060 FOR UJ7 =0TO 1 5 : IF S<L»J7)<>5 THEN 1007 
0 

10065 F <UI7 ) =F <UI7 ) -4 

10067 IF F (U7 } > £ 0 THEN F <W? ) =F <UI7 ) - INT<R 
ND < 1 > *4 > 

10068 PR INT ,, a ,, H*<W7 ) ; TAB ( 15 ) "OWNED BY 

■A*<0 <W7)> 

10069 PRINT"VALUE BEFORE:"0V<W7)".";TAB< 
££ ) "VALUE NOUl: "H <W7 ) *500+F (UJ7 ) *£50 

10070 NEXT W7 
10090 RETURN 

63900 REM COMMODORE 64 C-LR/SOUND CODE5 
6390£ U3= 1024 : !JC=55296 : UG=53£8 1 

63904 UB =53280 :UV = 54236:UA=54277:UD=54£7 
3 : UH=54273:UL = 54272 

63905 UW=54276 : U0 = 0 : U0* = : U 1 = 1 : LI 1$= ” 3 " 

:U2=2:U£$ ="a” 

63906 U3 = 5:U3$="U":U4=6 :U4$="3":U5=8:U5S 
= “":U6 =9 :U6$= 

63910 U7= 10 : U7$= "BT : U8 = 1 3 : U8*= " il" :U9=14: 
U9* ="a”:UU=4:UU$= 

63915 UR= 1£:UR*= "a" :UE=7:UE$="B" :UF=1 1 :U 
F$="H": RETURN 


Pagina mancante 
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£00 GOSUB£0000:P0KE54273,36 :P0KE54£72,85 
:FORX=0TO10:NEXT:P0KE54276,0 
£05 POKE10£4+P+Q*40,ZX 
£10 FORF = 1T06 

££0 IFH <F)=0ANDQ =F <F)THENIFP = G <F)ORP = G ( F 
> + 1THEN£50 
£30 NEXTF 
£40 GOTO300 

£50 H <F) = 1 :FGRG=7TO0STEP- 1 :POKE10£4 +F <F) 
*40 +G < F?,3£ 

£51 POKE10£5+F(F)*40+ G(F),83 :P0KE55296+F 
<F > *40 +G(F >,G:P0KE55E97+F<F)*40+G<F),G 
£60 FORI=0TOG *8STEPG +1 :GOSUB20000:P0KE54 
£7£,I :P0KE54£73,I*£:NEXT1 
£65 NEXTG 

£87 P0KE55£96 + F <F > *40+G <F >,5 :P0KE55297+F 
<F ) *40 +G ( F > ,5 

£70 S1=S1 + 1 : IFS1=6THEN2000 
MY MOVE 

305 G = ( INTCRND < 1 ) *12/SL ) > *SL+ 1 : F = I NT (. RND 
< 1 )* 12 + 1 > 

3£0 IFC$<F,G>="X"THEN305 
330 C$<F,G)="X" 

350 Y=F +4 : X =G +3 
370 FOR1=1T06 

376 IFY = Y CI)THENIFX = X <I>ORX=X< I>+lTHEN40 
0 

385 NEXTI 
390 GOTO 100 

400 FORO=7TO0STEP- 1 :POKE10£4+Y<I )*40+X C I 
>,82 :POKE1025 + Y<I>*40+X(I),83 
40 1 P0KE55£96+Y<I)*40+X<I),0 :P0KE55297 + Y 
<I)*40 +X< I > ,0 

4£0 FORL=0TOO*8STEP0+1:GOSUB20000:P0KE54 
£72,L:P0KE54273,L *2 :NEXTL 

4£5 NEXTO:P0KE55£96 + Y<I)*40+X<I),5:P0KE5 
5297+Y(I)*40 +X < I > ,5 

430 C*<Y<I>-4,X<I)-3>="X H :C«CY<I>-4,X<I) 
-£> ="X" 

440 SC2 =SC2 +1 : IFSC2 = 6THEN£100 
450 GOTO 100 

1130 POKE10£4+Y*40+X,74 
1140 RETURN 
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2000 PR TMT": Man»-in i DONE ! YOU DESTROY 
ED ALL THE COMPUTER‘S FLEET !!!" 

2050 GOTO2200 

2 100 PR INT "kJHHMHHSB AD LUCK ! THE COMPUTER 
3UNK ALL YOUR SHIPS ! ! ! •' 

2200 PR INT"glBBIgPRESS ANY KEY TO PLAY AGA 

IN. . . H 

2300 IFPEEK <197)=64THEN2300 
2400 PRINT"J”; :RUN15 

3265 FORI=1T06:IFY=Y(I>THENIFX=X<I)THENS 
210 

7000 A$="BATTLESHIPS 

70 10 PR I NT " a— " ; : FORF = 1T05 : FORG = 1 TO 1 4 : PR 
INTMIOSK ,RND ( 1 >*10+1 , 1 >; 

70 15 PR INTMIO:$<A$,G , 1 ) ; : GOSUB20000 : POKE5 
4272,G:P0KE54273,Gt£:NEXTG,F 
7020 P0KE54276 r 0:PRINT"aSaWSM" ; 

7050 PRINT u <C> PAUL S T A N L 

E Y" 

7051 PRINT" CONVERTED BY ANDY GRE 

EN" 

7 100 PRI NT" HHU^LAY THE COMPUTER AT BATTL 
ESH IPS " 

7 110 PR I NT " 8HBITHE WI NNE R IS THE FIRST TO 
DESTROY ALL SIX ENEMY SHIPS." 

7 120 PR I NT " 8CBL.FULL INSTRUCTIONS ARE G I VE 
N A3 YOU PROCEED. “ 

7130 PRINT"SHFRESS ANY KEY TO START 
7140 IFPEEK<197>=64THEN7140 
7 150 PRINT”: RETURN 

8000 INPUT"ENTER SKILL LEVEL (1=EASY OR 
2 =HARD > ”;SL:PRINT"U" 

8005 IFSL<>2ANDSL<>1THEN8000 

80 10 PR I NT " aSSnBSi" : FORF =5T0 16 : PR I NT " ||||J 

!NE x TF 

8025 PR I NT " 3H BATTLESH 

I P S" 

8050 PR I NT" Hd" i FORF = 1 TO 12 : PR INT“ UM"CHR$ 

< F + 64 >:NEXTF 

8060 PR I NT " mURUlT ; •’ FORF = 1T09 : PR INTMID 
$<STR$<F > ,2>; :NEXTF:PRINT 
8070 PR INT"asWSI"TAB < 1 3 ) “|—|#" 

8080 print" anca your ships 

PS 


MY SHI 
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8100 PR INT " affla®BI8KHWQffiM#aMBY0U CAN PO 

SITION 6 SHIPS BY TYPING 1 D4' <FOR EXAMP 
LE"; 

8101 PRINT">. THEN PRESS iENTERH. " 

8200 DIMA$ < 3 >,Y<6>,X<6>, H ( 6 ) 

8205 PRINT 

8206 FORF = 1T06 

8210 PRINT"CT; : INPUTA* 

3220 IFA$<"A"ORA*>"M‘THENG0T08210 
8230 Y=ASC<A$>-60 
8250 X=VAL<MID$CAS:,2>>+3 
8260 IFX <40RX >14THEN8210 

8265 FOR1=1T06:IFY=Y<I>THENIFX=XCIJ-10RX 
=X <I)ORX=X < I > + 1THEN8210 
8270 NEXTI 

3280 POKE 1024+Y*40+X,77 :POKE1025 + Y*40+X, 
78 

8290 Y(F)=Y: X <F)=X 

8300 GOSUB20000:P0KE54272,149 :P0KE54273, 
68 : FORX= ITO 15 : NEXT ’• P0KE54276,0 
8310 NEXTF 

n ■ 

r 

8401 PRINT" 

Il a 

r 

8402 PRINT" 

Il • 

r 

8500 DIMF<6>,G<6> 

8510 FORF =1T06 

86 10 Y= INT < RND <1>* 12)+5 : X=INT(RND(1)* 1 1) 
+ 18 

8620 FORG =1T06 

8630 IFY = F <G)THENIFX=G <G)ORX=G <G ) + 1GRX = G 

< G > - 1THEN8610 

8640 NEXTG 

3650 F <F >=Y:G <F)=X 

3700 NEXTF 

3720 DIMC$<12,12) 

3740 SC2 =0 :S1=0 
3800 RETURN 

8999 REM ** COPY CHARACTER SET FROM ROM 
INTO RAM LIHERE IT CAN BE ALTERED 

9000 PRINT" -Jai PLEASE UJAIT ... ":P0KE563 

34,PEEK<56334 >AND254:POKE1,PEEK<1)AND251 
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900 1 FORX=0TO2047 : POKE 14336+X ,PEEK <53248 
+X) :NEXT:POKE1,PEEK<1)0R4 

9002 P0KE56334,PEEK <56334)OR1 :P0KE53272, 
31 :FORX=0TO150 : READA :POKE1485G+X,A :NEXT 
9010 DATA0,0,0,0,224,248,252,254,255,255 
,255,255,254,252,248,224 

9020 DATASI,31,31,255,255,31,31,31,224,2 
40 ,248,248,248,248,240,224 
9030 DATA0,63,63,63,63,63,63,0,0,63,63,2 
55,255,63,63,0 

9040 DATA0,224,240,248,248,240,224,0,0,0 
,60 ,63,63,60,0,0 

9050 DATA0,0,252,254,254,252,0,0,0,0,0,2 
22,255,222,0,0 

9060 DATA 128,128,128,128,128,128,128,255 
,129,129,129,129,129,129,129,255 
9070 DATA0,2,34,59,63,255,127,0,0,0,32,4 
3,120,126,124,0 

9080 DATA0,38,41,41,41,41,38,0,0,20,20,2 
0,20,20,20,0,0,76,82,68,72,80,94,0 
9090 DATA 128,128,208,164,254,231,255,255 
,128,128,136,151,200,174,252,255 
9999 RETURN 

19999 END 

20000 P0KE54276,0 :P0KE54276,17:P0KE54296 
,15 :POKE54277,0 :P0KE54278,240 : RETURN 
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Siete il comandante dell'unica base laser rimasta sulla Terra, mentre la 
flotta degli extraterrestri si sta avvicinando per lo scontro finale. Alcu¬ 
ni scendono a terra sparando con i loro raggi laser, altri si assestano in 
corrispondenza del bordo superiore dello schermo lanciando bombe 
inarrestabili che devono essere evitate. Ogni volta che riuscite ad an¬ 
nientare una flotta ne appare immediatamente un'altra al suo posto, 
in breve non avete via d'uscita. Prima però fate in modo di colpire più 
nemici possibile. 


10 POKE53280,0 s P0KE5328 1 ,0 : PR INT "Jal" 

15 HS=0 

18 PR INT"iJCHARACTERS BEING DEF INED ,PLEAS 
E l*JA IT”! GOTO9000 

20 GOSUB8000 

21 X=15s SC=0!L=3 s M=INT <RND(1)*18):G=3:H = 
INT < RND<1)* 18 ) 

30 A$=“ ♦ ! *1 *1 *1 ♦I ♦I M :B$=" - 

--— ■ : C$= “ " 

35 D$=" — — U :QQ=1 

IWBW " : SS=1024 :CS = 55296 

80 PRINT ,, g"SPC< 17) "kHI -SCORE "HS 

100 IFQQ=lTHENAA*=B$:QQ=2iGOTO120 

110 IFQQ=2THENAA*=A$:QQ=1 

120 PR INTLEFT$(CD$,4 )SPC (Y) "k-AA* 

140 X = X -2*(PEEK<197)=23ANDX<31)+2*<PEEK< 
197) = 12ANDX >1) 

150 PRINTCD*TAB<X>;" /I 

155 IFPEEK <197)=36THENG0SUB1000 SPRINT"^. 
SCORE“SC 
160 Y = Y + DI 

170 IFY=0ORY=21THENDI=-DI 
175 PRINTLEFT$<CD$,L+1)SPC(M>" 

180 L=L + 1 :M=M+INTCRND<1) *4 )-INT(RND<1) *4 

) 

185 IFL =21THENL = 3 : D$=" - - - - “ 

186 IFM>32THENM=31 

187 IFM< 8 THENM = 9 

183 PRINTLEFT*(CD$,L+1)SPC <M)"3"D$ 
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190 PRINTLEFT*<CD$,G+1 >SPC<H ) " 

£00 G = G + 3 J PRI NTLEFTS(CD$,G +1>SPC<H) M L\ H : 

IFG <>21THEN210 

201 G = 3 : PR INTCDSSPC ■' H ) " " : H 1 =H : H = INT <RN 

D < 1 ) * 17 > + 1 

202 IFH1= X +30RH1= X+ 20RX1= X + 1THEN4000 

2 10 REM IFRND <1> >.8THENIFD$< >" "THE 

NGOSUB3000 

300 GOTO 100 

1000 IFPEEK <SS+X+122)< >32THENHI = 1 
1005 IFPEEK < SS +X+2+L*40)<>32THEN1080 
1007 IFPEEK <SS+X+3+L*40)<>32THEN1080 
1009 FOR22 =20TO£STEP- 1 

1020 POKESS + 22 *40+X+2,103 :POKECS +22 *40+X 
+2 , 1 

1030 NEXT 

1031 FOR22 =20TO£STEP-1 :POKESS+X+2+22*40, 
32:NEXT 

1040 IFHI< >1THEN1050 

104 1 XY=X-Y+2 : IFXY<1THENXY=1 

1042 LETA*=LEFT$<A$,XY-1>+" "+MID$<A$, 

XY + 3) 

1043 LETB$=LEFTS><B$,XY-1)+" "+MID*KB$, 

XY+3 ) 

1045 SC=SC+10:PRINTLEFT$<CD$ / 4)SPC<X+1>" 

3 111“ 

1046 FORDL =1TO50:NEXTDL 

1048 PRINTLEFT*<CD$,4>SPC<X+1>" 

1050 HI=0 

1055 IFH$=C$THEN2000 
1060 RETURN 

1080 IFG =1THENIFH =X +1ORH = X +2THENRETURN 

1081 FOR2 2 =20TOLSTEP-1 

1082 POKE2 2 *40 + SS + X + 2,103 :POKECS+22*40+X 
+2, 1 

1083 NEXT 

1084 FOR22 =20TOLSTEP-1 :POKESS+X+2+22*40, 
32 :NEXT 

1090 MX = X- M + 2: IFMX<1 THENRETURN 

1130 D$=LEFT$<D$,MX-1)+" "+MID*<D*,MX 

+ 4>:SC =SC +20 

1131 PRINTLEFTS(CDS, L + 1)SPC <X+1)" IMI" 
1135 FORDL=1TO50:NEXTDL 

1137 PRINTLEFTS<CDS,L+1)SPC<X+1>" 
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1140 RETURN 

£000 PRINTLEFT*<CD$,4>SPC<Y)C* 

£010 FORF =0TO£5 SPRINT " MMMBB SPC ( F > " 

^ ^ " 

£0£0 IFF < >0ANDF< >3ANDF< >6ANDF< >9ANDF< > 1£ 
ANDF < >15THEN£040 

£0££ F0RI=6T0£STEP-£:PRINTLEFT$<CD$,1+1) 
SPC <F + 1 > " " : NEXT 1 : PR INT “ H3MKM "SPC (F 1 ) "k 

♦ I " 

£040 NEXTF 

£04£ FORF =25T034STEP2 

£046 PRINT^SHMBBMBBflgrSPCCF) " -, ^ " 

£048 PR INT"gHHDBBBHHEr'SPC (£8 ) " ".'GOTO 

30 

3000 IFMID*<D$,£><>"-"THEN3080 
3050 RETURN 

3080 IFG =1AN0H=X+20RH=X+1THENRETURN 
3160 RETURN 

4000 FORF = 1T075:PRINTLEFT$<CD$,££)SPC <X> 
; "all II I 111 IMI " : NEXT 

4040 IFSC >HSTHENHS = SC 

4050 PR I NT " SfiSSDSHBBSBISS" T0B ( 1 £ ) " «BIGAME OV 
ER" 

4060 PRINT:PRINT" PRESS ANY KEY TO PL 

8Y AGAIN 

4070 POKE 1 98,0 : WA ITI 98,1 
4080 PR T NT" A4";GOTO£l 
4999 END 

8000 PRINT"J"TAB<12) H BG A L X I A N S" 
:PRINTTAB <1£ ) " " 

8010 PRINTs PRINT"FLEET AFTER FLEET,THE I 
NVADERS FORM AND UJAIT TO ATTACK." 

8020 PRINT"HTHE INVADERS IN FORMATION DR 
OP DANGEROU-S BOMBS TO TRY AND DESTROY Y 

our " ; 

8030 PRINT" LASER BASE.DIVING ALIENS A 
RE WORTH MORE POINTS." 

3040 PRINT"AS SOON AS ONE FLEET OF ALIEN 
S HAVE BEENDESTROYED THE IR MOTHER-SHIP U 
ILL" ; 

8050 PRINT" ARRANGEA NEW BATTLE LINE." 
8060 PR INT "USE =LEFT X=R IGHT M=F IRE 11 
8070 PR INT"STRESS ANY KEY TO START. " : PO 
KE 198,0 ! WA ITI98,1 : PR INT 11 *J" : RETURN 
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8393 STOP 

3000 IFPEEK<56)=48THENP0KE53272,<PEEK<53 
272 >AND240) + 12 :6OTO3500 

9002 P0KE56,48 :P0KE52,48 :CLR:P0KE56334 ,P 
EEK <56334>AND254:POKE1,PEEK<1>AND£51 

9003 FORF =0TO2047 JP0KE12288+F,PEEK<53248 
+ F ) : NEXT : POKE 1 ,PEEK. < 1 >0R4 

3004 P0KE56334,PEEK<56334 )OR1 
3006 P0KE53272,< PEEK <53272)AND240 > + 12 
9008 FORF =0TO11 1 :READA:POKE12808+F,A :NEX 
T 

9010 DATA34,35,36,62,15,7 ,2,14 

3020 DATA36,136,223,252,240,224,64,1 12 

9030 DATA2,3,7,63,39,33,34,3 

9040 DATA64,192,32,124,223,228,68,192 

9050 DATA 128,166,242,123,61,47,39,3 

9060 DATA 1,10 1,79,222,183,244,196,192 

9070 DATA0,240,248,252,254 ,6,6,6 

3073 DATA145,32,0,3,132,0,74,145 

3080 DATA7.-3 1,127,170,170,127,31 ,7 

9090 DATA255,255,255,170,170,255,255,255 

3 100 DATA 192,240,252,170,170,252,240,192 

9110 DATA 18,19,18,28 ,4,2,1,1 

9120 DATA72,200,72,56,32,64,128,128 

9300 DATA 1 ,31 ,63,127,255,193,192,192 

9500 GOTO20 
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l bambini non vanno troppo d'accordo con il computer: di solito ci 
mettono troppo tempo a smontarlo. Nessuno può negare però che il 
microcomputer ha un ruolo fondamentale nei processi di apprendi¬ 
mento ed è quindi con non troppa riluttanza che abbiamo deciso di 
includere nella nostra raccolta un certo numero di programmi educati¬ 
vi, fra cui anche questo. È destinato ai più piccini ed è stato studiato 
per tenerli quieti mentre siete alle prese con qualche importante algo- 
ritmo da risolvere e allo stesso tempo volete insegnare loro i fonda¬ 
menti della matematica. 

il programma fissa una serie di problemi di aritmetica con i numeri da 
0 a 9 corrispondenti ad altrettanti oggetti come navi, fiori, gatti, case 
ecc. ..., e, se la risposta è giusta, risponde al vostro angioletto facendo 
muovere le navi, sorridere i gatti, suonare i telefoni e cosi via. 


0 REM* * *COUNTABOUT* * *64 VERS I ON* * *H . WALUI 
YN 

I GOSUB63900 

£ POKEUG,UF:POKEUB,U4 s PRINTU7S; "jaCOUNTA 
BOUTB" 

3 PR INT"MA COUNTING GAMI FOR CHILDREN AG 
ED 2-5. 

5 GOSUB1000 

6 PRINT n aiPRESS ANY KEY TO START PROGRAM 

II 

7 GET A$:K=RND<1>:IFA$="" THEN 7 
18 POKEUG , U9 ! POKEUB , UE : PR INT 11 

20 PR INTUBA; " «KttDaMaF LEASE PRES 
S ANY KEY" 

25 GET B*:K=RND<1):IF B$=“" THEN £5 
30 PR1NT"J" 

100 Q>£=RND < 1 > *9+1 
105 K=INT(RND <1)*5 + 1) 

1 10 J =6 : FOR 1 = 1 TOQ/'I 
120 1FI=40RI=7THENJ =6 

140 ON I GOSUB 9020,9020,9020,3010,9010, 
90 10,9000 ,9000,9000 
150 PRINTTAB <J)* 

1B5 IF X=1 THEN 135 

170 ON K GOSUB 10000,11000,12000,13000,1 
4000 
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13E GOTO 135 

135 ON K GOSUB 20000,21000,22000,£3000 ,£ 
4000 

135 J = J+11 :NEXT I 

136 IF X =1 THEN X=0:GOTO300 
£00 GET A$:IF A$<>"" THEN £00 

£05 PR INTUF$; "aH 0 U M A N Y "N*" ?" 
£10 GET IF A$ ="" THEN £10 
£12 IFASCCA$><490RASC<A*>>57THEN£10 
215 FR INTUF*; ”H'’TAB < 13 >A$: FOR L=1TO500:N 
EXT L 

£20 IF VAL<A$>=QX THEN £50 

£25 IF VAL(A$>=QX+1 OR VAL < A $') =Q‘/.~ 1 THEN 
280 

230 PRINTU£$/"HX 0, WRONG AN 
S L) E R" 

235 GOSUB3500:GOTO200 

£50 X =1 : GOTO 110 

£30 IF VAL<A$>=0 THEN 230 

282 PRINTU6*;"SK ERY NEARLY !" 
285 GOSUB3500:GOTO200 

300 GOSUB3600:PRINTU4$; u ac O R R E C T ! 

Il 

305 IF Q'/.= 1 THEN PR INT"MI"" "LEFT*<N 
$,LEN(N$>-2):GOTO320 
310 PR INT"811"QX" "N$ 

320 GOSUB7000 s GOTO£0 
1000 REM INSTRUCTIONS 

1010 PRINT" MTHERE IS NO NEED TO USE THE 
1020 PRINT"'RETURN KEY' IN THIS PROGRAM. 

n 

1030 PRINT"MDNCE THE CHILD KN0L1S WHERE T 
HE NUMBERS" 

1040 PRINT"FROM 1 - 3 ARE ON THE KEYBOAR 
D , " 

1050 PRINT"YOU CAN JUST SIT BACK AND LET 
THE" 

1060 PRINT"COMPUTER DO A BIT OF TEACHING 
! “ 

1100 RETURN 

7000 PRINTU03»; "g"TAB<30>; 

7005 ON QV. GOTO 7 100,7200,7300,7400,7500 

,7600,7700,7800,7300 

7100 PR I NT " A IH IH RETURN 
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7200 PRINT" —IIIH—'lina'-" : RETURN 

7300 PRINT" ,— UBISI —IIUU — > 11 : RETURN 

7400 PRINT" _ IHI51/ | UIU-T" ! RETURN 

7500 PRINT",-una 1 —nani —’ " : RETURN 

7600 PRINT" r-,UIHI—> IIUU '•—’ " ! RETURN 

7700 PRINT"_naca /UBISI / " : RETURN 

7S0O PRINT" f — UBISI!—iUBU "*— > " '• RETURN 
7900 PRINT" .—.UBISI 1 —1 UBISI v — } " ! RETURN 
9000 PR INT"aSBiaSHl" : RETURN 
90 10 PRINT" aMBMBMMI " iRFTURN 

9508 FOR !_= ITO 1700 : NEXT L 
9680 PRINT"a 

II 

9605 FOR L =1T04 
9610 PRINT" 

II 

9615 NEXT L 
9620 RETURN 

10000 REM HOUSE DRAUIING 

10005 N$="H 0 U S E S":PRINTU6S; 

10010 PRINT» j mmosm w—imr ^IBBBI 

IBH " ' IBBBBBI 

10050 RETURN 
11000 REM OATS 

11005 N$="C A T S":PRINTU0S; 

11010 P R I NT " 7IBBIKI 

■r-aiiBiitsi: 

1 1020 PRINT"^ BIBBIE] UBBBUi ; 

11050 RETURN 
12000 REM TELEPHONE 

12005 N*="T ELEPHONE S " : PR INTU2$,‘ 
12010 PRINT " Mar _ ’MI MBLj- ~ L——im c ni ■■■ 
inui Ui"; 

12050 RETURN 
13000 REM BOATS 

13005 N$="S H I P S":PRINTU2$; 

13010 PR INT" IMia IFìfc; " ■ al - -■»■■■■■« 

nsim n f 

13050 RETURN 
14000 REM FLOWER 

14005 N$="F L 0 W E R S":PRINTU6$; 

14010 pr i nt" uanoMMa— "u 
lira idi» M ; 
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14050 RETURN 

20000 REM HOUSE CORRECT 

20005 PR1NTU6*; 

20010 print" jikut ^iiuiisr O O ^llll 

IMS * IIIUKI ^ 

20050 RETURN 
21000 REM OATS 
21005 PRINTU0*; 

2i0i0 pRiNT"£re trilli» 1 ■ imias=ia u 

camita ; 

2 1020 PR I NT " !W 1IIIH allibi AJÈ" ! 

21050 RETURN 
22000 REM TELEPHONE 
22005 PRINTUF*; 

2200S PRINT"IF1NG£1MM ,, ;U2$; 

220 10 PRINT" ■■■■■09 3 B iSMMS(0>|| 

insb! sbdi"; 

22020 pr i nt■■ unni lai ai aiirariii- 
■ 

22050 RETURN 
23000 REM BOATS 
23005 PRINTU2*; 

23007 FOR H =JTO1 STEP -1 

230 10 PRINT "IMI Hit! 21IIUII □ 

minili" ; _ 

23030 PR I NT" IMllO IIHfiTUF*; “Olili 

IIM^a: : : : = ^TMIIMH" ; 

23040 NEXT H 

23045 PRINT "IMI IIIIS Ollllll □ 

□umili " ; 

23050 RETURN 
24000 REM FLOWER 
24005 PRINTUBA; 

24010 PRINT" >i»MI!W MIIBia gnilI]"U3$"U III 

rw ini /"U4$ 11 •ollDUBBI»" ' 

24020 PRINT" 

24050 RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US =1024 :UC =55296 :UG =53281 

63904 UB=53280 :UV=54296:UA=54277:UD=5427 

3 : UH=54273:UL=54272 

63905 UW=54276:U0=0:U0$= ,, |" :U1 = 1 :U1$="1" 
s U2=2 : U2$= "31" 

63906 U3 =5 : U3$= "||" : U4=6 : U4$ = "3" : U5 = 8 : U5$ 
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= U6 =9 : U6$= 

63910 Ll?=10:U?S=" O" :U8=13: U8$= "11" : U9= 14 : 
U9$="U":UU=4:UU*= 

63915 UR =12!UR$="y":UE = 7 :UE$="D":UF = 11:U 
F$= "|g" : RETURN 


734 


Tanx 


Tanx è un nome di fantasia per un gioco a due in cui due armi da fuo¬ 
co si fronteggiano ai due lati di una serie di colline generate sullo 
schermo in modo casuale. Ogni giocatore deve cercare di colpire l'ar¬ 
ma deH'awersario introducendo i valori corrispondenti all'angolo e alla 
velocità di sparo. Vince chi ha totalizzato il punteggio più alto dopo 
una serie di sette colpi. Ha maggiori probabilità di vincere chi riesce 
ad usare l'angolo di elevazione più basso per una data velocità, il pro¬ 
gramma prevede che, ad alte velocità, sia possibile sparare attraverso 
le colline. 


10 

REM 

*************************** 

1 1 

REM 

** 


** 

1 £ 

REM 

** 

TANX 

** 

13 

REM 

* * 


** 

14 

REM 

* * 

ADAPTED FOR THE 

* * 

16 

REM 

** 

CBM 64 

** 

17 

REM 

** 


** 

13 

REM 

** 

BY DAVE PONTING 

* * 

19 

REM 

** 

UIRITTEN BY STANLEY 

* * 

£0 

REM 

*************************** 

££ 

P0K.E53 

£80,0: P0KE5328 1 ,0 : PR INT" a| 


24 GOSUB7000 

£5 SC<1)=0:SC(2)=SC(1 > 

£7 GOSUB3000 
30 C=0:GOSUB3000 

35 1FRND <1)>.5THENC=C+1:GOSUB700 
40 GOSUB100 

44 C=C+1 

45 IFC=8THENPRINT"J" ; !6OTO30 

46 GOSUB700 

47 C=C+1 

43 IFC = 8THENPRINT"J"; :GOTO30 

50 GOTO40 

100 REM — !ER 1 

105 PRINTLEFT*<AT*,22>SPCC16)" 

110 PRINT" 

II 

11£ PRINT" 

II 

115 PRINTLEFT$<AT*,23)SPC<16>"PLAYER 1" 
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120 A = -l: INPUT"ENTER ELEVATION"* A$ 

122 IFA*<■0"ORA*>"90"THENPRINT" < 0-9 

0 >"; s GOTO 115 

130 PR i NT ■ ; ; i nput 

"ENTER VELOCITY";VEL 

132 IF VEL < 20RVEL > 10THENPR I NT " H1M>IÉ»1I 
imiltll 2-10 > CPRINT'^" : GOTO 130 
135 POKESO+4,129 :POKES0+18 ,129 
140 MAX = 120+5 *VEL! A =VAL < A$ ) 

145 E=A/10:E1=E/4:E2=E/16 

146 S1=PEEK < V + 1)-16 

147 PP=PEEK <V+31>:PP=PEEK <V+30 ) :P0KES0+4 
,128 s P0KE80 +18,128 

148 POKEV+4,PEEK<V)+8s POKEV+5,91:POKE204 
2,11 :POKEV +21,7 

149 PP =PEEK < V + 31>:PP = PEEK<V + 30>:POKESO+l 
1 ,33 

150 F0RG=32T0316STEPVEL 

152 PP =PEEK < V +31>:PP=PEEK <V+30):POKESO+1 
1 ,33 

155 P0KES0+8,G/2 

160 POKEV+4,G + 255*(G >255 >:POKEV + 5,S1 
165 IFG >255THENP0KEV + 16,PEEK <V+16 >0R4 
167 IFG<256THENP0KEV+16,PEEK <V + 16 >AND251 
170 IF31>50THENIF((PEEK<V+31>AND4>=4>THE 
NGOSUB300 s G=316 

175 IF(CPEEK <V + 30 >AND2)=2 >THENGO9UB400:G 
=316 

180 S1=S1+E*(<G<MAX>AND<S1>30))-E*<(G>=M 
AX) ) 

182 E =E + <<E/8)* <G<MAX))-< <E2)*<G>MAX- 1)) 

190 NEXTG 

192 POKESO+11,32 

195 POKEV+21,3»RETURN 

300 REM HIT ON THE GROUND 

305 POKE2042,15:P0KES0+4,17:P0KES0+11,33 
s POKESO + 18,129 

310 FORT=1TO200:POKESO+1,T:POKESO+8,250- 
T:NEXTT:POKESO+1,20 

320 POKEV+21,3 s POKESO +4,128 :POKESO+ 1 1,12 
8 :POKESO + 18,128 
325 IFG<12THENG=12 

330 PRINTLEFT^<AT$,<INT< <S1 + 19)/8>-5))SP 
C<INTC<G+13>/8>-3>" " 
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399 GOTO8410 

400 REM HIT TANK 2 
405 SC<1)=3C <1> + l 
*20 GOSUB300 

430 IFSC<1>+SC<2>=7THEN1000 

449 GOTO8000 

450 REM HIT TANK 1 
455 SC < 2)=SC( £ > + 1 
460 GOSUB300 

480 IFSC(1>+SC<2> =7THEN1000 
499 GOTO8000 
700 REM -!ER E 

705 PRINTLEFT$<AT*,22)SPC<16>" 

710 PRINT" 

II 

712 PRINT" 

II 

715 PRINTLEFT$<AT$,23>SPC<16)"PLAYER 2" 
720 A = - 1 ! INPUT"ENTER ELEVATION";A$ 

722 IFA*<"0"ORA$>"90"THENPRINT" < 0-9 

0 )"; : GOTO?15 

730 Pf? T NT ■■ nil>i»ill»»HIMH m 11 ; = INPUT 
"ENTER VELOCITY"?VEL 

732 IFVEL<£ORVEL > 10THENPR INT " ttlCBUUBBI 
2-10 >:PRINT"CT:GOTO730 
735 P0KES0+4,129:POKES0+18,129 
740 MAX =200-5 *VEL: A =VAL < A$ ) 

745 E =A/10 : E 1=E/4:E2=E/16 

746 S1=PEEK <V+3>-16 

747 pp = FEEK(V + 31):PP = PEEK <V+30):P0KES0+4 
, 128 :POKESO+18 ,128 

748 POKEV+4,48 :PGKEV+5,S1 :POKEV+16,PEEK< 
V+16)OR4:POKE2042,11:P0KEV+21,7 

749 PP=PEEK<V+31>: PP = PEEK<V+30>:POKESO+1 
1 ,33 

750 FORG = 304TO8STEP-VEL 
755 P0KES0+8,G/2 

760 POKEV+4,G+255*<G >255 >:POKEV + 5 ,S 1 
765 IFG>255THENP0KEV+16,PEEK <V+16)0R4 
767 IFG<256THENP0KEV+16,PEEK<V+16 >AND251 
770 S1=S1+E* <(G >MAX)AND <S1>30 > >-E* < <G< =M 
AX ) > 

780 E =E + < <E /8 > * <G >MAX > >-<<E2>*<G<MAX-1> > 
785 IF <(PEEKCV+31)AND4 > =4 >THENGOSUB300:G 
=8 
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787 IF < <PEEK(V+30)AND1 > = 1 > THENGOSUB450 : G 
=3 
790 
793 
799 
1000 


NEXTG 

P0KES0+11,32 
RETURN 

REM END 0F THE 


GAME 


BATTLE 


1005 PRINTLEFT$<AT$,4>SPC(10)"THE 
19 OVER” 

1010 PRINTSPC(10)" iFRESS ANY KEY TO PLAY 
AGA IN" 

1020 UA ITI 97,19 1 

1030 SC(1)=0:SC<2)=0:GOTO30 

7000 REM *** INITIAL SCREEN — | AND 0~WRU 

CTIONS *** 

7002 PR I NT 11 LI” ' ! T1 =0 s T2= 10 s T3=27 s T4 =37 
7005 FORT =18T01STEP-1 

7010 PRINTLEFTS <AT$,T)TAB(T1) " T"TAB < T2)" 
A"TAB <T3) M N"TAB(T4)"X" 

7020 IFT >1THENPRINTLEFT$ < AT$,T)TAB CTI)■ 
"TAB <T2 ) " " T AB ( T3 ) " "TAB <T4 ) " " 

7030 T1 =T 1 + 1 :T2=T2+.5:T3=T3-.5:T4=T4-1 
NEXTT 

T1=0 s T2 =10:T3 = 27 : T4 =37 
FORT =19T02STEP-1 

PRINTLEFT$(AT$,T)TAB(T1 ) " —,, TAB < T2 > " 
— "TAB <T3 ) “ — 11 TAB ( T4 ) " —“ 

7060 IFT>2THENPRINTLEFT*<AT$,T>TAB<T1)" 
"TAB <T2)" "TAB(T3)" "TAB(T4)" “ 

7070 T1=T1+1:T2=T2+.5:T3=T3-.5:T4=T4-1 
7080 NEXTT 

7150 PRINT"HSTHE TLJO PLAYERS TAKE TURNS 
TO ENTER THE ANGLE AND VELOCITY AT 
7155 PR I NT " WH ICH THEY LJANT TO FI RE TO 
TRY TO HIT THEIR OPPONENT." 

7160 PRINT"HTHE SHELLS MUST BE FIRED OVE 
R THE HILLS BUT IF YOU ARE LUCKY YOUR"; 

SHELL MAY BE ABLE TO GO THRO 


7040 

7045 

7047 

7050 


(PARTICULARLY AT THE HIGHER 


7165 PRINT' 

UGH A HILL' 

7167 PRINT' 

SPEEDS.)" 

7 170 PR I NT " HTTHE LIINNER IS THE PLAYER UJHO 
HAS HIT HIS OPPOINENT THE MOST "? 

7175 PRINT"AFTER A TOTAL OF 7 HITS HAVE 
BEEN MADE" 

7180 PRINT "HI TO STAND THE BEST CHANCE 0 
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F HITTING YOUR OPPONENT TRY TO "; 

7185 PRINT"USE THE SMALLEST POSSIBLE A 
NGLE OF ELEVATION.° 

7 190 PRINT-gl a PRESS ANY KEY TO START 
THE GAME " 

7195 A$="■:GETA$: IFA$< >""THEN7 195 
7197 GETA*:IFA$=""THEN7197 
7200 PRINT"J"; : RETURN 

8000 REM *** INITOAL SCREEN SET-UP *** 

8003 POKEV+21,0 

8005 Q=20-INT <RNO ( 1)* 10 ) 

8007 PRINT"J" 

80 10 FORF =0TO39 

8020 FORG =21TOQSTEP-1 

8030 PRINTLEFT*<AT*,G>SPC<F> "ila " 

8035 REM PRINTLEFTS<AT$,G)SPC<F-2> 

8040 NEXTG 

8042 IFF <3THENNEXTF 

8045 1FF >36THENNEXTF: GOTO8100 

8050 Q = Q +INT(RND <1>*4>- INT<RND<1)*4) 

8060 IFQ<7THENQ=8+INT(RND(1)*2) 

8065 IFQ >£0THENQ =20-1NT<RND(1)*2) 

8070 NEXTF 

8100 FORF =1T024! IFPEEK<1024+<40*F>X>32T 
HENPOKEV +1,<F*8 >+32 :POKEV,24 :G0T08120 
8115 NEXTF 

8 120 FORF =1T024: IFPEEK < 1063 + <40*F)> < >32T 
HEN8150 

8130 NEXTF 
8140 GOTO8400 

8150 POKEV+ 3,F*8+32 :POKEV+2,64 :POKEV +16, 
2 

8400 POKEV+21,7 

8405 PRINT"a PLAYER 1 PLA 

YER 2" 

8410 PRINT"aS "SC(l)' 1 

"SC < 2 ) 

8500 RETURN 

9000 REM *** READ SPRITE DATA *** 

9005 POKEV+21,0 

9010 FORT=0TO191 : REAOA:POKE13*64+T,A :NEX 
TT:POKE2040,13:POKE£041,14 

9015 FORT = 0TO63:POKE704+T,0:NEXTT:P0KE75 
9,8!P0KE762,28 :POKE765,8 :POKE2042,1 1 
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9020 V = 53248 

9030 POKEV+39,1:POKEV+40,1:P0KEV+41,1 
9050 POKEV +21,7 
9100 SO = 54272 

91 10 FORT=0TO28 : RE ADA : POKESO + T,A s NEXTT 
9500 RETURN 

10000 REM *** SPRITE TANK LEFT *** 

10002 DATA 0, 0, 0, 0, 0 , 0 , 0, 0, 0 , 0, 

0 , 0 

10003 DATA 0 , 0 , 8 , 0, 0, 56, 0, 0, 248, 
0, 227, 224 

10004 DATA 1, 247, 128, 3, 254, 0, 3, 24 

8, 0, 127, 255, 254 

10005 DATA 255, 255, 255, 255, 255, 255, 

64, 0, 4, 81, 17, 20 

10006 DATA 63, 255, 248, 0, 0, 0, 0, 0, 

0 , 0 , 0 , 0 

10007 DATA 0, 0, 0, 0 

10050 REM *** SPRITE TANK-RIGHT *** 

10052 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

0 , 0 

10053 DATA 32, 0, 0, 120, 0, 0, 62, 0, 0 

, 15, 135, 0 

10054 DATA 1, 239, 128, 0, 127, 192, 0, 

31, 192, 127, 255, 254 

10055 DATA 255, 255, 255, 255, 255, 255, 

32, 0, 2, 40, 136, 138 

10056 DATA 31, 255, 252, 0, 0, 0, 0, 0, 

0 , 0 , 0 , 0 

10057 DATA 0, 0, 0, 0 

10100 REM *** SPRITE SHELL BURST *** 


10102 DATA 0, 0 , 
0, 0, 32 

10103 DATA 0, 64 

8 , 64, 128 

10104 DATA 0, 0, 
2 , 8 

10105 DATA 0, 0, 

64, 136, 128 

10106 DATA 32, 1 

112 , 1, 11, 128 


0 , 0, 0, 16, 0, 128, 0, 
, 0, 16, 0, 64, 0, 0, 0, 

0, 4, 1, 2, 0, 0, 4, 2, 

16, 1, 4, 32, 0, 0, 64, 

, 0, 16, 82, 15, 12, 4, 


10107 DATA 0, 112, 0, 0 

1 1000 REM 
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11010 DATA0,20,0,0,128,26,250 
11020 DATA0,20,0,0,16,9,240 
11030 DATA0,7,0,0,128,9,240 
11040 D^TA0,0,0,15,0,0,0,0 
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Pericolo fra le stelle 


in uno dei soliti viaggi nelliperspazio, vi imbattete improvvisamente in 
un nuovo universo, in cui vi trovate immediatamente a dover affron¬ 
tare una serie di labirinti, ostacoli e tunnel che non vi lasciano il tem¬ 
po di individuare i vostri nuovi orizzonti. Da buon comandante dotato 
di esperienza, vi rendete subito conto che qualsiasi contatto con i me¬ 
teoriti, le rocce o le varie barriere che vi si presentano davanti signifi¬ 
cherebbe la distruzione del vostro veicolo. Dovete pensare rapidamen¬ 
te e usare con precisione i vostri missili per aprirvi un varco fra gli 
ostacoli. Provate ... e buona fortuna! 


10 REM STELLAR RUM. . . WALUYN 

12 PRINT H J STELLAR RUN. . . „ LIA IT FOR 5 S 

ECONDS" 

15 REM SET UP INITIAL DATA 
18 DIM KXC255),KY<255) 

20 GOSUB5000 

22 REM PLACE SCREEN TO 40 COLUMNS 

24 POKE53270,PEEK(53270)OR8 

25 REM PRINT BLACK BORDER 

26 POKEUB,U0:POKEUG ,U9 

27 GOSUB3000 

30 REM X AND Y POSITION OF SHIP 
32 REM FG IS MISSILE BANK 
35 X =150 s Y=30 :FG = 9 

40 REM SHRINK SCREEN TO 38 COLUMNS 
45 POK.E53270 ,PEEK <53270 )AND247 
60 REM SET UP AND DISPLAY SPRITES 
62 POKEV +2,X s POKEV+3 , Y 

65 POKE2041 ,241 :POKEV+21,2 :POKEV+40,UF 
70 POKE2042,242 :POKE2040,240 :POKEV+39,U2 
:POKEV+41,U0 

75 POKEV + 16,0:POKEV+30,0:POKEV+31 ,0 
100 REM SET UP NEXT LINE OF SCROLL 
110 REM D=LEVEL OF DIFFICULTY (MAX 9) 

120 D = 1: E =0 s A=0 s B =0 s C =0 s EE = . 2 
125 POKEUV, 15 s POKEUA +7,129 : POKEUD +7,24 1 : 
POKEULI + 7,17 
130 A*="a 
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132 fìl$="4 ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

135 B*="H 

II 

140 C$=" * * * 

* " 

142 C*=C$+" 

* 

150 E=E+EE*RND<1) 

160 ON DGOTO200,250,300,350,400,450,500, 
550,600 

200 D$=LEFT$<A$,SIN<E)*9+10) +LEFT$(B$,20 
) +A$ 

210 IFE >15THENP0KEUG, U3!D =2 
220 GOTO650 

250 D$=LEFT$<A$,SIN<E)* 11+12)+LEFT$<B$,1 
6 ) +A$ 

260 IFE >30THENPOKEUG ,UU '• D=3 
270 GOTO650 

300 D$=LEFT*<A$,<SIN<E)+C03<E*.9))*4.5+l 

2)+LEFT$(B$,16)+AS 

305 IF RND < 1 ) < .08THEND$="5S"+A$ 

3 10 IFE >45THENP0KEUG,U5:D = 4 
320 GOTO650 

350 N*=B*:IF RND<1)<.08THENN*=*H"+A1* 

355 D$=LEFT$<A$,<SIN<E)+COS<E*1.1))*4.5+ 
12 ) +LEFT$<N$, 16 ) +Pl$ 

360 IFE >60THENPOKEUG ,U9 ’• D=5 
370 GOTO650 

400 IF RND<1)>.6THEND$="Ha"+B^:G0T0410 
405 D$= " ■« " +M1D*<C*, INTCRND < 1 ) *40+1 ) ,40 

) 

4 10 IFE >75THENP0KEUG,U7iD =6 
420 GOTO650 

450 D*=LEFT$<A$,SIN<E)*12+13)+LEFT$<B*, 1 
4 ) +AS 

460 IFE>90THENPOKEUG,UR:D=7 
470 GOTO650 

500 D$=LEFT$<<SINC E)+COSCE*5.1>)*4.5+ 
12) +LEFT$<B$, 16 ) +1=1# 

510 IFE >105THENPOKEUG,US :D = 8 
520 GOTO650 

550 IF R1C(1)>.25THEND*=”Ha"+B$:GOTO560 
555 D*="Hai"+MID*<Al*,INT <RND(1)*2+l),40 
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560 IFE >120THENPOKEUG, U 1 :D = 9 
570 GOTO650 

600 IF RNO<1)>.5THEND$="SS"+B$:GOTO610 
605 D*="Ha" + A$ 

610 IFE<135THEN650 

6£0 FORK = 0TO 1 4 : PR INTTAB <K ) "UJELL DONE , YO 
U MADE IT" 

630 POKEUB,K:NEXTK 
640 G0T09110 

650 PRINTU0*;LEFT$<D$,42> 

660 POKEUS+1,FG+48 

700 REM KEY PRESSED ACTION 

710 K=PEEK(197):IFM<0THENM=0 

71£ POKEUH+7,£:POKEUL+7,M*8:FG=FG+1 

715 IFK =64THENM=M-£:GOTO800 

716 IFK<>60THEN7£5 
718 IFFG<£THEN800 

780 F = 1 :FX=X s FY=Y+6:POKEV,FX!POKEV+1,FY: 
POKEV+£1,3 !FG=FG-£ 

7££ IFPEEK < V + 16 >=£THENPOKEV +16,3 
7£3 IFFG<0THENFG=0 
7£4 GOTO800 

7£5 M=M +1 : IFM>9THENM=9 

730 IF < EANDPEEK < V + 16 >)AND(K= 10ORK =13)THE 
N770 

735 IFK =10THENX = X-M s IFX<30THENX = 30 

740 IFK=13THENX = X+M: IFX >£55THENP0KEV+16 , 

PEEK< V + 16 ) +£ : X =X-£55 

750 IFK=1£THENY=Y+M:IFY>£00THENY=£00 
760 IFK =9THENY=Y-M: IFY<60THENY = 60 
765 GOTO800 

770 IFK=10THENX=X-M:IFX<0THENPOKEV+16,PE 
EK<V+16)-2:X=£55+X 

780 IFK =13THENX =X +M s IFX>60THENX=60 

800 REM DISPLAY AND CHECK HIT 

805 IFFG >9THENFG = 9 

810 P0KEV+£,X:P0KEV+3,Y 

8£0 IFPEEK ( V+3 1)AND2THEN9000 

850 IFF <1THEN150 

85£ IFF =2THEN860 

855 POKEUV,15:P0KEUA,l£:POKEUD,1£8:P0KEU 
W, 17:F=£ 

860 FORK«0TO40STEP8 '• FY = FY+8 s POKEV + 1 ,FY: I 
FFY >£20THEN900 
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865 POKEUL,FY:POKEUH ,6 

870 IFPEEK < V + 31X>1THENNEXTK:GOTO990 
875 NX=0 s IFPEEK < V + 16 > AND 1THENFX=FX+255 :N 

X = 1 

830 Z =US +INT(<FX-25)/8) + INT< <FY-42)/8+l) 
*40 

832 POKEUV,15 :POKEUA, 72 !POKEUD,128:P0KEU 
H , 1 1 

883 POKEUL , 0 s POKEUW ,129 

384 POKEV+4 , FX ! F'OKEV + 5 , F Y: IFNXTHENPOKEV + 
16 ,PEEK <V+16)+4 
8S5 POKEV+21 ,6 

886 FORK =0TO3:POKEZ +K,32 :POKEZ-40 +K ,32 
837 NEXTK 

800 F=0:POKEV+21,2:IFNXTHENPOKEV+16,PEEK 

< V + 16 ) -4 

910 GOSUB9500 

880 GOTO 150 

999 END 

3000 PRINTU2$; " 4 JSTELLAR RUN" 

3010 REM INSTRUCTIONS 

3020 PRINTUF$"HYOU ARE IN CONTROL OF THE 
3030 PRINT"J35TELLAR TRIPPER» AND HAVE DI 
SCOVERED 

3040 PRINT"A NEW GALAXY." 

3050 PRINT"THE GALAXY IS 135 LIGHT YEARS 
WIDE AND 

3060 PRINT"YOU WILL HAVE TO NAVIGATE YOU 
R WAY 

3070 PRINT"THROUGH THE WARP MAZE." 

3080 PRINT"EEACH TIME YOU PLAY, YOU WILL 
BE GIVEN 

3090 PRINT"A SLIGHTLY DIFFERENT MAZE...W 
ATCH OUT!" 

3100 PRINT"SEE HOW FAR YOU CAN GET. NO 0 
NE'S EVER 

3110 PRINT"REACHED THE OTHER SIDE!" 

3115 PRINT"THE FURTHER YOU GO, THE HARDE 


R IT 

IS ! " 





3120 

PRINTU2*,* "gJHOLD 

DOWN 

’A 1 

O 

(- 

• 

■ 

■ 

MOVE 

LEFT 

II 





3130 

II 

PRINT" 

•s ' . . 

■ 

H 

O 

MOVE 

RIGHT 

3 140 

PRINT" 

’Z ' . . 

• TO 

MOVE 

DOWN" 
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3 150 PRINT" 'W...TO MOVE UP" 

3160 PRINT"THE SPACE BAR FIRES A STELLAR 
MISS ILE 

3170 PRINT"(DON 1 T WEAR OUT YOUR MISSILE 
BANK ... 

3180 PRINT"THE NUMBER OF MISSILES READY 
FOR 

3190 PRINT"FIRING IS AT THE TOP LEFT)" 
3200 PRINTU0«"* 5 RESS ANY KEY TO START" 
3210 GETMS:IFM*=""THEN3210 
3220 RETURN 

5000 REM SPRITE DATA SUBROUTINE... 1 64' 

5001 REM SPRITE BASE VARIABLE = 'V' 

5002 V =53248 

5004 REM ALTER BASIC MAX MEMORY AND VARI 
ABLE LOW MEMORY 

5005 POKE52,60:POKE56,60 

5006 REM LOAD DATA INTO BLOCKS 240-UPWAR 
DS 

5007 FORK*0TO2:FORJ =0TO62 

5008 READ A :POKE(240 +K >*64+J,A:NEXTJ, K 
5010 REM SPRITE MISSILE 

5020 DATA 0, 0, 0, 0, 0 , 0 , 0 , 0 

5030 DATA 0, 0, 0 , 0 , 0 , 0, 0, 0 

5040 DATA 0, 0, 0 , 0, 0 , 0, 0, 0 

5050 DATA 0, 124, 0, 0, 56, 0, 0, 16 

5060 DATA 0, 0, 16, 0, 0, 16, 0, 0 

5070 DATA 16, 0, 0, 0, 0, 0 , 0, 0 
5080 DATA 0, 0, 0, 0, 0, 0, 0 , 0 

5090 DATA 0, 0, 0, 0, 0, 0, 0 

5110 REM SPRITE SHIP 


5 120 

5130 

7 

DATA 

DATA 

0, 0 
124, 

, 0, 
30, 

126 

24, 

, 60, 
120, 

126, 62,24 
15, 24, 240, 

5140 

DATA 

153, 

224 

, 1 , 

255, 

128, 0, £55, 


0 

5150 DATA 0, 255, 0, 127, 255, 254, 63, 

255 

5160 DATA 252, 63, 189, 252, 47, 255, 24 

4, 39 

5170 DATA 189, 228, 3, 255, 192, 1, 165, 

123 

5180 DATA 0, 231, 0 , 0, 102, 0, 0, 60 

5190 DATA 0, 0, 24, 0, 0, £4, 0 
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5210 REM SPRITE SHIP EXPLODES 


5220 

DATA 

34, 

162, 73, 84, 

£0, 

84, 

42, 

4 

4 

5230 

DATA 

00 

Jk 

20, 129, 40, 

74, 

8, 

160, 

1 

65 

5240 

DATA 

17, 

68, 16, 170, 

130 

, 32 

in 

00 

K 

/ 


0 

5250 DATA 4, 170, 0, 85, 85, 84, 0, 124 

5260 DATA 4, 21, 21, 84, 40, 170, 160, 3 

6 

5270 DATA 161, 100, 0, 9, 66, 1, 36, 128 

5280 DATA 42, 138, 84, 1, 36, 0, 0, 0 

5290 DATA 72, 66, 128, 0, 8, 0, 16 

7000 REM ***************************** 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM (ONLY USE THESE COLOURS) 

7010 'J0=0 : U0$= s REM BLACK 

7020 U 1 = 1 : U 1$ = " aj" • REM UHI TE 

7030 U2=2 : U2$= " 3' 1 : REM DARK RED 

7040 U3 =5 ' U3^= " il" ’ REM GREEN 

7050 IJ4=6 : U4^= "a" : REM DARK BLUE 

7060 U5=8:U5$=" H :REM ORANGE 

7070 U6=9 : U6*= : REM BROUJN 

7030 U7 = 10:U7$= U O": REM PINK 

7090 U8=13:U8$="ir : REM LIGHT GREEN 

7100 U9= 14 : U9$= "JJ" : REM LIGHT BLUE 

7110 UU=4:UU$=: REM PURPLE 

7120 UR = l£:UR$= ,, a H : REM LIGHT GREY 

7130 UE=7:UE$= "D" : REM LIGHT YELLOLI 

7140 UF = 11:UF$ =:REM DARK GREY 

7200 REM SCREEN 1 POKE 1 CODES FOR 64. 

7210 US=1024:REM SCREEN POKE CHARACTER 
7220 UC=55296: REM SCREEN POKE COLOUR 
7230 UG=53281 : REM BACKGROUND COLOUR 
7240 UB=53280: REM SCREEN BORDER COLOUR 
7300 REM SOUND ’POKE' CODES FOR 64. 

7310 UV=54296 : REM VOLUME FOR 3 VOICES 
7320 UA =54277 : REM ATTACK FOR VOICE 1 
7330 UD = 54278 : REM SUSTAIN FOR VOICE 1 
7340 UH=54273: REM HIGH BYTE FOR VOICE 1 
7350 UL = 54272 : REM LOUJ BYTE FOR VOICE 1 
7360 UW=54276: REM WAVEFORM FOR VOICE 1 
7400 RETURN 

7500 REM ***************************** 
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8000 REM SOUND SUBROUTINES 
9000 REM SHIP HIT 

9010 POKEV+40,U0:POKEV+4,X:POKEV+5, Y 
9080 IFPEEK <V +16 !> AND2THENP0KE V +16,6 
9030 POKEUV,15:POKEUA,15:POKEUD,63 :POKEU 
H ,7:POKEUL,80 
9038 POKEUUI, 189 

9035 FORK =0TO80:POKEV+40,U1 :FORJ = 1TO80:N 
EXTJ 

9040 POKEV+40,U0:FORJ=1TO80:NEXTJ,K 
9050 POKEV+21 ,6 
9060 FORJ =0TO200:NEXTJ 
9070 POKEV+21,4 

9080 FORJ =0TO800:NEXTJ:POKEV+21,0 
9100 PRINTU0$;"a DESTROYED" 

9102 PRINT"B YOU GOT AS FAR AS u 

9105 PRINT"t|" INT<E*10>/10; "LIGHT YEARS “ 

9110 PRINT"M ANOTHER GAME? <Y/N>" 

9120 GETA$:IFA* =""THEN9120 

9130 IFA*="Y"THEN GOSUB9500:POKEUV ,0 :PR I 

NT" 0K...":RUN 

9140 IFA$="N"THEN PR INT"»JTH ANKYOU FOR PL 
AYING": END 
9150 GOTO9120 

9500 REM CANCEL SOUND FOR VOICE 1 

95 10 POKEUA,0 :POKEUD,0 :POKEUH,0 :POKEUL,0 

: POKEUL],0 : RETURN 



148 


Oche volanti 


È tempo di indossare i vostri abiti da caccia, ungere il fucile e raggiun¬ 
gere la palude. Le oche stanno emigrando verso sud e il frigorifero è 
vuoto. Non preoccupatevi dei volatili a terra, ci penserà il vostro cane 
a raccoglierli alla fine del gioco. Preoccupatevi di colpirne il più possi¬ 
bile e ottenere il massimo punteggio. 


10 REM FLYING GEESE 


11 

REM 

•'li" 

= 

INSERT 


< 

IN 

> 

12 

REM 

"H" 

= 

CURSOR 

DOWN 

< 

CD 

> 

13 

REM 


= 

CURSOR 

UP 

< 

CU 

> 

14 

REM 

"II" 

= 

CURSOR 

LEFT 

< 

CL 

) 

15 

REM 

"II" 

= 

CURSOR 

R IGHT 


CR 

> 

16 

REM 


= 

CLEAR SCREEN 

< 

CS 

> 

17 

REM 

■■a- 

= 

CURSOR 

HOME 

< 

CH 

ì 

18 

REM 

•’a" 

= 

PEVERSE 

ON 

t 

RO 

> 



"■ r 


REVEF.SE 

OFF 

< 

RF 

> 

19 

REM 








20 

P0KE52, 

48 

: P0KE56 , 

48 :CLR 




22 

ATS = 

"36 

IJQI 

uy \j yy 

l'IQQQUf! 

L-U 

jfQL-Tt- 



CH + < 25 *CD > 

23 GOSUB7000! GOTO530 

24 : 

25 REM **** FLYING & SHOOT ROUTINE **** 

30 FORX=0TO3: D <X )=H<X > + INT(RND <1 
X)>60)-INT < RND <1>*8>*<H<X><250> 

31 POKEV +2*<X)+1,H<X> 

32 REMPRINTLEFT$(AT*,H<X> >SPC<G<X>-0>" 

L-s 1 16 

35 POKE2040 +X,<PEEK<2040+X>-F>:F = -F 
40 KY=PEEK<197>:IFKY=10THENGOSUB80 

45 DI=DI + < <DI>1 >AND <KY = 47)>-(<DI<3>AND<K 
Y=44 > > 

46 FO=10*DI:EV=F0-1:TV=FO 

47 MI=MI + <(DI = 1>AND <KY=47)AND <MI>1> >-< <D 
I=3)AND<KY = 44)AND(MI<35 > > 

49 PRINTLEFT$<AT$,21>SPC<MI)MAN*<DI> 

50 H <X ) =D <X ) ! G <X ) =G (X ) +TW 
52 IFG<X)*8 >255THENG < X)=2 


Oche volanti 149 


55 REM IFG(X)>TNTHENPRINTLEFTS(ATS,H(X)) 
SPC <G <X)-0 ) " " : G (X ) =0 

57 POKE2040+X,(PEEK(2040+X)-F):F=-F 
60 NEXTX:IFSH>99THEN300 

70 GOTO30 

71 : 

72 : 

80 REM FIRE! 

81 SH=SH+1SPRINT"9"SPC(5)SH 
32 F0RY=0T0TW 

83 PP=PEEK (V+30 >:PP=PEEK ( V+3 1) 

84 PRINTLEFTS(ATS,SI+(DI=2))SPC(MI+DI - 1> 
SOS (DI)'POKESO +4,129:NEXTY 

85 PRINTLEFTS( ATS ,SI + (DI=2 ))SPC(MI+DI - 1 ) 
"a :POKESO+4,128 : REM (RO)+SPACE+(RF ) 

87 Y1=(SI+(DI=£>)*8+42 : X1 = (MI+DI - 1)*8+24 

88 POKEV+21,143 

90 X2 = 3 * (DI-2):FORY=Y1TO30STEP-8 
9 1 X1=X1+X2!POKEV +14,X1*-<X1>0)+256*(XI> 
255)!POKEV+15,Y 

92 P0KEV+16,PEEK< V +16)AND <255+128*(X1<25 
5) )0R(128*-<X1>255)) 

93 2Z =PEEK <V+31): IFY<200THENIF <(PEEK(V+3 
1)AND 129) = 128)THENPOKEV +21,15:G0T099 

94 PP=PEEK(V+30) 

95 IF( (PPAND128) = 128)THENPP=PP-128 !G0T04 
00 

96 NEXTY 

99 PRINTLEFTS(ATS,SI + (DI=2 ))SPC(MI+DI - 1) 
"J RETURN:REM <R0)+SPACE+(RF) 

100 REM **** SCREEN SET-UP **** 

101 POKE53265,PEEK(53265)0R64 

103 sps="a 

IH i" 

104 REM (RO ) + (39*SPACE ) + (C-L ) + ( IN)+SPACE + 
(RF) 

105 FORX=0TO3:H(X > =60 + 10*X:G(X) = ((X+1)*5 
)-4 :NEXTX 

107 PR I NT " JSHOTS = FIRE SC 

ORE 

IMTSPS:NEXTT:PRINT3PS; 

1 12 PR INTLEFTS< ATS , 1 4 )SFC (9 ) " ' 1 ' " : PR INTL 
EFTS( ATS, 15 )SPC (6 ).. : REM ' =SHlFT+7 



150 Oche volanti 


114 FRI NTLEFTS < AT$ ,16) SPC ( 7 ).. " : PR 

INTLEFT*(AT3>,17)SPC<7) . .. 

116 PRINTLEFT$(AT$,18)SPC<7)" ' ’ a H&a ■'' 

II 

118 PRINTLEFT$(AT$,19)SPC(10)"&":PRINTLE 
FT*<AT*,20)SPC<10) 

130 REM PRINTLEFT$(AT*,21)SPC(18)MAN$(DI 

) 

140 POKEV,25:POKEV+2,50:POKEV+4,75 :POKEV 
+6,100 

152 PRINTLEFT$(AT$,13)SPC(32).. SPRINT 

LEFT$(AT:*>,14)SPC(31 ). 

154 PRINTLEFT$(AT$,15)SPC(30) " 1 ..:P 

RINTLEFT$(AT*,16)SPC<30). 

156 PRINTLEFT$(AT$, 17)SPC(30)" ' 1 a S&a ■' 

i n 

158 PRINTLEFT*(ATS,1S)SPC(33):PRINTLE 
FT*(AT$,19)SPC(33)"&"; 

165 GOTO30 

166 : 

299 REM **** END OF GAME **** 

300 IF6 >T0THENT0=B 

310 FORT=1TO400sNEXTT:POKEV+21,0 

320 PRINT" J M :PRINTLEFT$(AT$,8)SPC<15)"GA 

ME OVER" 

330 PRINTSPC(8)"YOU SCORED "B" IN 100 SH 
OTS " 

340 PRINTSPC(10)"HIGHEST SCORE "T0 
345 POKE198,0 

350 PRINT"naSSa": INPUT" PRESS a RETURN ■ 
FOR THE NEXT GAME ";X$ 

360 SH=0:B=0sPOKEV+21,15:GOTO 105 
400 REM HIT! ! ! ! 

405 B =B + 1 :PRINT"a"SPC(37)B:G(X)=0 + TLl:H(X 
)=0 

410 IFPP = 1THENXX =0 
420 IFPP =2THENXX =2 
430 IFPP =4THENXX =4 
440 IFPP =8THENXX =6 

450 POKEV + 8,PEEK(V + XX):POKEV+9,PEEK(V+XX 
+ 1)s POKEV +21 ,31 

455 POKEV + 43,PEEK(V + 39 + (XX/2)) 

460 POKEV +XX,20 :POKESO + 11 ,33 
470 FORQQ =PEEK(V + 9)TO220STEP2 
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480 POKEV+9,QQ!P0KES0+8, 230-QQ : NEXTQQ 
490 POKEV + 2 1,15: F'OKESO + 11,0 
499 G0T099 

570 REM **** INITIALIZATION **** 

580 PQKE5328 1 ,3: PR INT" JH" •' POKE53280,6 : PO 
KE53282,5 :P0KE53283,5 

585 PRINT"HHSHH PLEASE LIA IT A FEW 

MOMENTS" 

590 DIMA*<4>,0<4>,G<4),H<4> 

600 SX=6:HY = 30:TT = 0:SH=0 :FI = 15 : TV=12 :EV = 
11 : NI = 19!TY=20:EN=18 :TF =34 :SI=21 
605 F0=14:EI=8:F=-1:0=1:TW=2:TH=3:FR=4:T 
N=39:DI=2:MI=18 

610 P0KE56334,PEEK <56334)AND254 
620 POKE1, PEEK <1)AND251 

630 FORI=0TO511 :POKE12288 + 1,PEEK<53248+I 
>:NEXT 

660 FORI=0TO8*13-1 : READA :POKE12568 + I,A:N 
EXT I 

665 FORI=0TO15 : READA :POKE12288+464 + 1 ,A:N 
EXT 

670 A$<4)="#$" : A$<2 > = "XS" :S0$< 1 ) = :S 

0$<2 ) = "£!:■" :S0^(3> = "a'B" 

671 REM MAN$<1)=<R0>,SPACE,SPACE,SPACE,< 
CDXCL) (CL) (CL)<SPACE) , <SFACE) ETC 

672 MAN$< 1 > = "fi S«||| , Siili - “:MAN$<2> 

= "a . sani / ami - 

675 MAN$<3) = "a Siili * filili + " 

680 POKE1,PEEK<1>0R4:P0KE56334,PEEK <5633 
4 ) OR 1 

690 P0KE53272,<PEEK <53272)AND240) + 12 
695 GOTO9000 
1000 REM -* DATA 
1010 DATA2,6,7,7,127,31,8,0 
1020 DATA0,0,43,104,254,192,0,0 
1030 DATA0,0,0,0,127,31,15,3 
1040 DATAS5,170,85,170,85,170,35,170 
1050 DATA66,16,132,33,4,81,4,160 
1060 DATA0,16,18,54,118,62,60,60 
1070 DATA48,56,28,20,24,16,16,0 
1080 DATA 1,98,244,232,88,232,248,224 : REM 
MAN RIGHT TOP 

1090 DATA224,224,144,144,144,144,144,216 
: REM MAN RIGHT LEGS 
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1100 DATA 128,70,47,23,26,23/31,7 : REM MAN 
LEFT TOP 

1110 0ATA7,7,9,9,9,3,9,27:REM MAN LEFT L 
EGS 

1120 DATAO,0,0,8,3,8,8,8 

1130 DATA8,14,15,15,26,23,31,7:REM MAN L 
EFT TOP 

1140 DATA85,42,20,4£,20,0,8,8 
1150 DATA66,8,33,132,32/138,32,5 
7000 REM INITIAL SCREEN & —WRUCTIONS 
70 10 PR INT"LJ" : 

7020 PRINT" FLYING GEESE 

■ ~ Il 

7030 PRINT "SEI IT'S TIME TO DON YOUR TUIE E 
DS , ■ ; 

7035 PRINT" GREASE UP YOUR SHOTGUN AND H 
EAD FOR THE MARSHES." 

7040 PRINT" THE GEESE ARE BACK FROM THE 
NORTH AND THE FREEZER IS EMPTt'. " 

7050 PRINT" DON 1 T WORRY ABOUT THE CORPS 

ES U r 

7060 PRINT" - YOUR FAITHFUL RETRIEVER 
UJILL DEAL"; 

7070 PRINT" UJITH THEM AFTER THE GAME IS 
OVER. " 

7080 PRINT" JUST BLAST ALIAY SITH YOUR 12 
-BORE AND NOTCH UF A HANDSOME TALLY 
7100 PRINT"® CONTROLS:-" 

7110 PRINT"S < = MOVE PLAYER TO THE LEFT 

II 

7120 PRINT"® > = MOVE PLAYER TO THE RIGH 
T" 

7130 PRINT"® A = FIRE THE SHOT GUN 
7140 PRINT "già PRESS ANY KEY TO START T 
HE GAME 

7150 LIA IT 197,64 : LIA IT 197,191 

7200 RETURN 

7999 GCT07999 

9000 REM READ SPRITE DATA 

9010 FORT-0TO191 : READA :POKE12864+T,A :NEX 
TT 

9020 FORT=0TO63 s P0KE64 *£00 + T,0:NEXTT 
9030 POKE12809,16 :POKE128 12,56:POKE12815 

, 16 
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9100 V = 53248 

9110 POKEV+39,0:POKEV +40,2 :POKEV + 41,6:PO 

KEV+42,11 :POKEV+43,0 :POKEV+46,0 

9120 POKE2040,201 :POKE2041 ,201:POKE2042, 

201 :POKE2043,201 :POKE2047,200 

9130 POKEV+21,143!PQKE2044,203 

9140 30=54272 :FORT = 0TO28:POKESO+T,0 :NEXT 

T 

9150 POKESO + 1,25 !POKESO+ 5,9 :POKESO +6,25: 
POKESO+12,9 :POKESO+13,240 :POKESO+24,15 

9999 GOTO 15000 

10000 REM SPRITE DATA 

10010 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
10020 DATA2,0,0,6,0,0,7,48,0,7,104,0,127 
,254,0,31,192,0,8,0,0,0,0,0, 

10030 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0 

10050 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
10060 DATA0,0,0,0,0,0,0,48,0,0,104,0,127 
,254,0,31,192,0,15,0,0,3,0,0 
10070 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

10100 DATA0,0,00,0,16,0,0,18,0,0,54,0,0, 
118,0,0,62,0,0,60,0,0,60 

10110 DATA0,0,48,0,0,56,0,0,28,0,0,20,0, 
0,24,0,0,16,0,0,16,0,0,0 

10120 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0 

15000 FORT = 0TO111 

15005 REAOA: X =X +A 

15010 P0KE828 +T,A 

15015 NEXTT:POKE254,4 

15020 IFX=13483THENSYS828:GOTO 100 

15025 PRINT"DATA ERROR IN LINES 15030-15 

100" 

15027 PRINT"PLEASE CHECK THESE LINES FOR 
A LIRONG NUMBER" 

15030 DATA 120,173,20,3,133,251,173,21,3, 

133,252,169,96,141,20 

15040 0ATA3,169,3,141,21,3,88,96 

15050 DATA 120,165,251,141 ,20,3,165,252,1 

41,21,3,88,96,169,0 

15060 DATA 168,10,170,9,1,133,253,254,0,2 
08,189,0,208,201 ,0 
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15070 DATA240,7,201,89,240,14,76,155,3,1 
65,253,13,16,208,141 

15080 DATA 16,208,76,155,3,173,16,208,37, 
253,240,246,169,255 

15090 DATA229,253,45,16,208,141,16,208,1 
69,20,157,0,208,200 

15 100 DATA 196,254,240,8,6,253,152,10,170 
,76,105,3,108,251,0,234 
15200 REM CHECKSUM= 13483 


155 


Messaggio in vetrina 


Ecco un programma che permetterà al vostro computer di guadagnar¬ 
si da vivere. Quando non vi interessa che risolva i vostri problemi fisca¬ 
li, vi sfidi a scacchi o combatta contro di voi per il possesso di una ba¬ 
se lunare, con questo programmino potete fare in modo che visualizzi 
un messaggio da usare, per esempio, per pubblicizzare un prodotto, 
se avete un negozio, o intrattenere i vostri ospiti con qualche com¬ 
mento spiritoso, il messaggio può arrivare fino a cinquanta linee e in 
più avete la possibilità di modificare il colore delle lettere e i colori 
dello sfondo. 


10 REM SHOUJ-SIGN 

20 GOSUB7000 

25 GOSUB8000 

100 POKE UG, U9 : POKEUB,UF 

110 PRINTU2$*J SHOW-SIGN” 

120 PRINTU4*;"MTHIS IS A MOVING SIGN DIS 

PLAY FOR 

130 PRINT"YOUR SHOP, OFFICE, PARTY OR HO 
ME ETC." 

140 PRINT" IF IRSTLY SET THE SCREEN COLOUR 
S AND" 

150 PRINT"THEN TYPE IN YOUR MESSAGE. NO 
LINE MAY" 

160 PRINT"BE MORE THAN SIX CHARACTERS IN 
LENGTH." 

170 PRINT"YOU MAY TYPE ANY ASCII CHARACT 
ER FROM:" 

180 PRINT"ASC(32) - A BLANK - TO...” 

130 PRINT"ASC<94) - AN UPWARDS ARROW" 

200 PRINT"THERE ARE 4 FUNCTION KEYS FOR 
SPECIFIC" 

210 PRINT"SHAPES FOR YOUR DISPLAY:" 

220 PRINT"gUF 1S A SOLID BLOCK" 

230 PRINT"iF 39 A LINE" 

240 PRINT"^ 59 A ZIG-ZAG PATTERN" 

250 PRINT"flF 79 A DIAMOND" 

260 PRINTUF$;"MYOU MAY CHANGE COLOUR FOR 
ANY CHARACTER 

270 PRI NT"BY USING YOUR COMPUTER'S NORMA 
L COLOUR" 
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280 PRINT"KEYS. YOU MAY ALSO DELETE MIST 
AKES. " 

290 PR INT"NO OTHER KEYSTROKE UIILL BE ACC 
EPTED . " 

300 PR INT "U1HEN F INISHED , TYPE 'RETURN'." 
305 PRINTU6*;"fiPRESS ANY KEY TO PROCEEDH 

N 

310 GETA$:IFA$<>""THEN310 
320 GETA$:IFA*=""THEN320 
400 FORJ =1T02 s K = 0 
4 10 IFJ =2THEN430 

420 PRINT"kJSET BACKGROUND COLOUR BY PRES 
SING THE" 

422 L =UG 

425 PR INT "SPACE BAR. U1HEN F INISHED TYPE 
RETURN" 

427 GOTO440 

430 PRINT"HBSET BORDER COLOUR BY PRESS IN 
G THE" 

432 L =UB 

435 PR INT"SPACE BAR. LJHEN F INISHED TYPE 
RETURN" 

440 GETA$:IFA$=""THEN440 

445 IFASC<A*O=13THEN480 

450 IFA$=" "THENK=K+1 : IFK=16THENK=0 

460 POKEL ,K 

470 GOTO440 

480 NEXTJ 

500 PRINTUFf;"BMMOM LET'S HAVE YOUR MESS 
AGE..." 

510 PRINT" 8FEMEMBER, NO LINE MAY BE MORE 
THAN 

520 PRINT"SIX CHARACTERS IN LENGTH. 

522 PRINT"TYPE 'INST/DEL ' KEY TO REDO L 
INE" 

525 PRINT"TYPE 'CLR/HOME' KEY FOR NEXT L 
INE . 

530 PRINT"TYPE 'RETURN' WHEN FINISHED. 
532 PR INT"SUaai23456" 

535 Z=0:W=0:L=0:C$=UF$ 

540 PRINTC*; 

550 GETA^:IFA$=""THEN550 
555 A =ASC (. A$ ) 

560 IF A >31ANDA < 95THEN650 
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565 IFA >132ANDA <137THEN600 
570 IFA=13THENZ = 1 :GOTO640 
572 I FA =£0THEN610 

574 IFA=19THEN640 

575 FORJ =0TO15 s IFA =C(J)THEN620 
580 NEXTJ:GOTO550 

600 REM SPECIAL FUNCTION KEY PRESSED 

601 G=A-3S:A=A-132 

602 N*(W,L>=CHR^(Q> :CL$<W,L>=C$ 

603 ONAGOTOS04,605,606,607 

604 F'RINTC r: "S ■•II" * : GOTO680 

605 FR INTC*; ” -•||“ ; : GOTO680 
666 PR INTC$; "aÉHr ; : GGTO680 
607 PRINTC-f* "♦•||" • SGGTO680 
610 REM DELETE A LINE 

815 FORJ=0TO5:N*CUI,J>*"":CL$<W,J?="":NEX 
TJ 

6 16 L =0 :PRINT :PRINT"□ 

II 

6 17 PRINTC*; " □•■!"; 

618 GOTO550 

620 REM COLOUR KEY' PRESSED 
625 C*=CHR$<C<J)>:GOTO540 
640 REM NEW LINE 

642 N$<UJ,L) =..SPRINT" "; 

644 L =L + 1 : IFL =6THENL=0 :GOTO690 
646 G0T0642 

650 REM ACCEPT A CHARACTER 
660 N$<LJ,L;»=A*:CL$<W,L>=C$ 

665 IFASC(A*)=34THENA$=" " 

670 printc*;A$; "•II"; 

680 L=Lt 1 : IFL=6THENL=0:GOTG690 
685 GOTO550 

690 FRINT" ...LINE NUMBER"W+1 

692 W = W+1 : IFW = 50THENPR INT ,, 8BHMAX 50 LINE 
S":GOTO700 

693 IF2 = 1THENW = W-1 :GOTO700 

694 GOTO540 

700 REM PRINT OUT MOVING DISPLAY 
710 PRINT 

7 15 PR I NT " HUmgDK . NOLI I SHALL DISPLAY Y 
OUR MESSAGE 

720 PRINT"SCROLLING UP THE SCREEN IN VER 
Y LARGE 
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730 PRINT"CHARACTERS. THE MESSAGE UIILL K 
EEP ON 

740 PRINT"REPEATING UNTIL YOU EITHER ' BR 
EAK' THE 

750 PR INT''PROGRAM OR TURN OFF THE COMPUT 
ER ! " 

770 PRINT"flPRESS ANY KEY" 

780 GETA$:IFA$=""THEN780 

795 REM DISPLAY 
800 FORJ =0TOU 

808 PRINT:FORN=ITO 100 :NEXTN 

803 PRINT:FORN=ITO 100 :NEXTN 

804 PRINT:FORN=ITO 100 :NEXTN 

805 FORK=0TO4 
810 D$=" " 

815 FORL=0TO5 

820 D$=D$+CL$< J, L)+ P$<L(ASC <N$<J,L))-38, 
K ) > + " “ 

330 NEXTL 
840 PR INT "WPS 
850 NEXTK,J:GOTO800 
999 END 

7008 REM ***************************** 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM (. ONL Y USE THESE COLOURS ) 

7010 U0=0:U0#=: REM BLACK 

7080 U 1 = 1 : U 1$ = " aj" : REM UJH I TE 

7030 U2 =2 : U2$="3": REM DARK RED 

7040 U3 = 5: U3$ = "Si" : REM GREEN 

7050 IJ4 =8 : U4$= "3" : REM DARK BLUE 

7860 U5 = S:U5$="": REM ORANGE 

7070 U6=3:U6*="E": REM BROUN 

7080 U7 =10 :U7$=”OT: REM PINK 

7090 US =13: U8$= "■!" : REM LIGHT GREEN 

7 100 U9=14 :U9*="3" : REM LIGHT BLUE 

7110 UU=4:UU$ ="1": REM PURPLE 

7180 UR=12 :UR$= H a" : REM LIGHT GREY 

7 130 UE =7 :UE$="O" ! REM LIGHT YELLOW 

7 148 UF=1 1 :UF* ="H" : REM DARK GREY 

7200 REM SCREEN 'POKE' CODES FOR 64. 

7810 US=1084:REM SCREEN POKE CHARACTER 
7820 UC =55296 : REM SCREEN POKE COLOUR 
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7230 UG = 53281 : REM BACKGROUND COLOUR 
7240 UB =53280 s REM SCREEN BORDER COLOUR 
7300 REM SOUND 'POKE' CODES FOR 64. 

7310 UV =54296 : REM VOLUME FOR 3 VOICES 
7320 UA=54277s REM ATTACK FOR VOICE 1 
7330 UD=54278: REM SUSTA IN FOR VOICE 1 
7340 UH=54273:REM HIGH BYTE FOR VOICE 1 
7350 UL=54272 ! REM LOUI BYTE FOR VOICE 1 
7360 UUI=54276 s REM U1AVEFORM FOR VOICE 1 
7400 RETURN 

7500 REM ***************************** 

8000 REM IMITIAL DATA 

8001 REM N$<50,5> ARE THE INPUT LINES 

8002 REM CL$<50,5> ARE THE CHARACTER COL 
OURS 

8004 REM L<X,Y> ARE THE CHARACTER LINES 

8005 REM WHERE X IS THE CHARACTER NUMBER 

8006 REM WHERE Y ARE THE HOR12ONTAL LINE 
S FROM 0 TO 4 

8007 REM P$<X> ARE THE HORIZONTAL PRINT 
LINES 

8008 DIM P$ < 24),L<66,4),N#(50,5),CL$<50, 
5) 

8010 FORJ=0TO24: READ P*<J>:NEXTJ 

8020 DATA "fl ■"H","3 9 ", 

"9 a 9" 

8030 DATA "a 9 ","9 a 9”, " a 9 

« mm i» 

8040 DATA "9 a 9 ","9 a 9 ","9 a 9 

ri 

soso data "a 9 a 9 a 9”, n a 9 ","9 a 

9" 

8060 data n 9 a 9 a 9 *', "a 9 a 9 ","9 a 

9 a 9" 

8070 data "a 9 a 9" /"a 9 a 9 ■■ , H 9 a 9 

a 9" 

3080 DATA "9 a 9 ","9 a 9 " ,"9 a 9 

II 

8090 data n a 9 a 9", "a 9 a 9" 

8095 REM CHARACTER LINES DATA 

8097 FORM=0TO66:FORN=0TO4 

8098 READ L<M,N>:NEXTN,M 
8100 DATA 1,1,1,1,1 
3110 DATA 9,3,9,1,9 
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3126 

DATA 

1,14,1,1,1 

313G 

DATA 

14,0,14,0,14 

3146 

DATA 

0,15,0,16,0 

3150 

DATA 

17,10,9,3,17 

3166 

DATA 

4,7,5,13,0 

3 176 

DATA 

1 ,9,1,1,1 

8 186 

DATA 

9,8,8,8,9 

3190 

DATA 

9,10,10,10,9 

8800 

DATA 

1,14,9,14,1 

S210 

DATA 

1 ,9,20,9,1 

3320 

DATA 

1,1,1,10,9 

3230 

DATA 

1 , 1 ,20,1,1 

3240 

DATA 

1,1,1,21,21 

8250 

DATA 

3,10,9,8,2 

3260 

DATA 

0,17,17,17,0 

3270 

DATA 

3,22,9,9,9 

3280 

DATA 

0,3,0,2,0 

8290 

DATA 

0,3,12,3,0 

8300 

DATA 

2,15,12,9,3 

8310 

DATA 

0,2,0,3,0 

3320 

DATA 

0,2,0,17,0 

3330 

DATA 

0,10,9,8,2 

3340 

DATA 

0,17,0,17,0 

S350 

DATA 

0,17,0,3,3 

8360 

DATA 

1 ,3,1,9,1 

3370 

DATA 

1 ,3,1,9,8 

3380 

DATA 

10,9,8,3,10 

3390 

DATA 

1 ,20,1,20,1 

8400 

DATA 

8,9,10,9,8 

84 10 

DATA 

12,13,21,1,9 

8420 

DATA 

0,17,11,16,5 

8430 

DATA 

0,17,0,17,17 

8440 

DATA 

0,17,12,17,0 

8450 

DATA 

0,2,2,2,0 

8460 

DATA 

12,17,17,17,1 

8470 

DATA 

0,2,0,2,0 

8480 

DATA 

0,2,12,2,2 

8490 

DATA 

0,2,23,17,0 

8500 

DATA 

17,17,0,17,17 

8510 

DATA 

20,9,9,9,20 

8520 

DATA 

20,9,9,9,22 

8530 

DATA 

17,18,6,18,17 

3540 

DATA 

2,2,2,2,0 

3550 

DATA 

0,11,11,17,17 
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8560 DATA 17,84,11,23,17 

8570 DATA £0,17,17,17,80 

8580 DATA 0,17,0,8,2 

8580 DATA 20,17,17,23,13 

8600 DATA 0,17,0,18,18 

3610 DATA 13,2,0,3,12 

8620 DATA 0,9,9,9,3 

3630 DATA 17,17,17,17,0 

8640 DATA 17,17,17,14,9 

8650 DATA 17,11,11,11,0 

8660 DATA 17,14,3,14,17 

3670 DATA 17,14,9,9,3 

3680 DATA 0,10,3,8,0 

8690 DATA 5,3,9,9,5 

8700 DATA 13,3,6,8,0 

37 10 DATA 6,9,9,9,6 

8720 DATA 9,20,11,9,3 

8730 REM END OF ASC I I CHARACTERS 

3790 REM START OF SPECIAL FUNCTION CHARA 

CTERS 


3800 REM SOL ID BLOCK 

3305 DATA 0,0,0,0,0 

8310 REM LINE 

38 15 DATA 1,1,0,1,1 

3820 REM ZIG ZAG 

8825 DATA 11,14,11,14,11 

8330 REM DIAMOND 

3335 DATA 9,20,0,20,9 

3900 REM COLOUF: KEY PRESSED CHECK 

3910 DIM C<15) 

3320 FOPM=0TO15 :READC(M):NEXTM 

8330 DATA 144,5,28,159,156,30,31,158,129 

,149,150,15 1 

8340 DATA 152,153,154,155 
3990 RETURN 
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Come potevamo scrivere un libro di giochi senza infilarci il classico «in¬ 
vadere»? Eccolo dunque, completo di nave-madre e con lo schermo 
pieno di temibili alieni. 


I REM *** INVASION *** 

3 REM ***BY PAUL ROPER <C> 1983 *** 

4 REM * * 

5 REM * 20,RECTORY CLOSE, * 

6 REM * ALVERSTOKE, * 

7 REM * GOSPORT. * 

8 REM ****************************** 

9 GOTO9000 

10 GOSUB1000JPR1NT"J" 

II FORA =55296T056296 : POKEA ,0 ’• NEXT 

12 DEF FNKOO=X-1023-INT( CX-1024)/40)*40 

13 POKE49408,0’SC =0'DL =.9 !LV = 3 
20 REM MA IN LOOP 

30 GOSUB2000: IFLSTHENLV =1 :GOTO7000 
40 GOSUB6000 

50 B=1145 + INT<37*RND<1) + 1): IFRND <0)>DLTH 
ENPOKEB,36 

51 SYS492 1 9 : IFPEEK <49408 ) >252THEN7000 

52 GOSUB6000 

55 IFQ = 60THEN7500 
70 GOSUB5000 
80 GOSUB6000 
85 SYS49219 
90 GOTO20 

1000 I$<4>=" f r f r f f f f r f f f " 

1010 I$<2>="* * * • * * * * * * * *" 

1020 I$<3>= M l I I I I I I I I I • 1 

1030 I$<1> = "_ ---—" 

1040 I$<0>=“« •••••••••••” 

1050 FOR I =0TO4 : 1 ( 1 ) = 1 : T ( I > = 12 : NEXT: Q=0 
1052 C<0)=144:C<1> = 158 : C (2 ) =5 : C <3 > =30 : C < 
4 ) =158 

1060 P*= " MBM " 

1065 ^* = " :R = - 1 : V= 1 
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1066 C = 0:L3=0: 0=0 

1067 FORA = 0TO4: R (A > = 0 :NEXT 
1070 Z$=" 

II 

1080 G =2 1 • G$ = " >■ 

1090 A$=" 

1500 RETURN 

8000 REM MOVE INVADERS ON 
8005 IFQ =60THENRETURN 

8010 R=R+ 1 : IFR=5THENR=0:C=C+V: IFC = 0 OR C 

=18THENGOSUB3000:V=-V 

8080 IFI(R )=0THEN8010 

8085 R<R)=R<R)+v: IFR +0 =1 6 THENL 3 =1 

8030 PRINTP*LEFT$<V*,R+ 0 >Z* 

8040 PRINTP$LEFT$< V$,R+0)TAB<R<R))CHR$<C 
<R))I$<R> 

8050 RETURN 

3000 REM MARCH DOWN 

3010 FORI= 0TO4:IFICI>THENPRINTP*LEFT*<V* 
,I+0)Z* 

3080 NEXT:0 = 0+1 : RETURN 
5000 REM MOVE GUN 

5010 K=PEEK<197):REM IFK = 64THENRETURN 

5011 IFK =60ANDM=0THENM=1703 + G:POKEM 30:R 
ETURN 

5015 PRINTG$TAB<G> " □» 

5080 IFK =47ANDG > 1 THENG =G- 1 
5030 IFK = 44ANDG < 30THENG =G +1 
5040 PRINTTAB <G)A$:RETURN 

6000 REM MISSILE 

6001 IFM=0THENRETURN 

6005 IFM<1144THENP0KEM,32:M=0: RETURN 
6010 IFPEEK(M)<>30 THEN6030 

6020 POKEM,32:M=M-40: IFPEEK <M)=3£THENP0K 
EM,30:RETURN 

6030 IFPEEK <M> =36THENP0KEM,38 :M= 0 : RETURN 

6031 IFPEEK(M)=37THENP0KEM,32:M=0:RETURN 
6035 IFPEEK(M)=32THEN6080 

6040 IF PEEK < M> = 160THENPOKEM,32 : M=0 : RE TU 
RN 

6050 K =FNK <M>:H=PEEK<M>-81 :T<H)=T<H)-1 :Q 
= Q+1 : IFT <H)=0THENI<H)=0 

6055 K=K-R CH):SC=SC+INT< <5-H)* 10/DL):GOS 
UB9600 
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6056 PRINT"3BC0REs "SC/ "; :FORN=1TOL 

V : PR I NT"lif/ -*■ IHHI ; : NEXT 

6057 IFK =0THENI $ < H ) = " M +RIGHT$<I$<H>,£1 

):POKEM,36:M=0:RETURN 

6053 IFK=£3THENI$<H)=LEFT$<I$<H>,£S)+" 

:POKEM,36 :M = 0: RETURN 

6060 I$<H>=LEFT$<I$<H>,K*1)+" "+RIGHT*CI 

$<H>,£3-K):POKEM,36:M=0:RETURN 

7000 REM DEATH 

7010 REM SOUND 

70E0 GOSUB3600 

7030 PORN=1TO3000:NEXT 

7£60 LV = LV-1 : IFLV<1THEN7300 

•7£0£ PRlNT ,, a , ‘Z$ 

7£35 POKE49408,0 
7£10 GOTOE0 

7300 PF? T NT " BUDMimm GftME OVER I - UIIN 

II 

7310 PR TNT 11 MaPRESS SPACE TO TRY AGAIN" 

7315 WAIT197,64:POKE138,0 

73£0 GETA$:IFA$<>" "THEN7380 

7330 RUN10 

7500 REM NEW FLEET! 

7550 GOSUB1000 :Q=0:LS=0:PRINT" 

7560 FORA =55£96T056£95:POKEA,0 :NEXT 
7570 DL=DL/1.£ : LV=LV + 1 : GOTO£0 
9000 REM SET UP UDGS 

900 1 PR T NT " „ wmiillllHr HE INVADERS ARE 
COMING." 

900£ pptmt" mmaiwi — oo§«« f r <■ ** ** 

III " 

9003 PR INT " gUMPEFEND AT YOUR PER IL USUI" 

9004 r r t i it “lìitimiT r 111 

9005 PRINT-’M ' - LEFT - RIGHT" 

9006 PRINT" 1WSPACEBAR - FIRE ! 

903 1 P0KE5£,48 :P0KE56,48 :CLR 

903£ P0KE56334,PEEK<56334)AND£54:POKE1,P 
EEK<1)AND£51 

9033 FORI=0TO51£ s POKE1££88 +I,PEEK<53£48+ 
I):NEXT 

9034 POKE1,PEEK<1)0R4:P0KE56334,PEEK <563 
34 )OR 1 

9035 P0KE53£7£,< PEEK < 53£7£)AND£40) + 1£ 
9040 READ L:IFL=-ITHEN10000 
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9050 FORA =0TO7:READD:POKE12288 +L*8 +A,D:N 
EXT:GOTO9040 

9060 DATA81,60,66,129,195,126,36,66,129 
9070 DATA82,60,66,129,195,126,36,66,129 
9080 DATA83,24,24,102,129,189,90,60,231 
9090 DATA84,24,36,36,60,126,126,255,153 
9100 DATA35,165,165,183,126,60,90,195,19 
5 

9110 DATA 255,0,0,0,7,7,15,255,255 

9120 DATA 254,24,24,60,255,255,255,255,2 

55 

9130 DATA 253,0,0,0,224,224,240,255,255 
9140 DATA 30,24,24,24,24,60,60,60,126 
9150 DATA 36,255,60,24,60,102,195,165,66 
9160 DATA 37,255,60,24,24,24,60,60,60 
9600 P0KE54276,128 :P0KE54296,0 
9605 POKE54277,59 :P0KE54278,13:P0KE54296 
, 15 :P0KE54273,30 :P0KE54272,30 
96 10 P0KE54276,129 : RETURN 

9999 DATA- 1 

10000 REM BOMB ROUTINE 

10010 DATAA2,00,A9,00,95,FB,A9,04,95,FC 
10020 DATAE6,FB,D0,02,E6,FC,A5,FB,C9,70 
10030 DATAD0,07,B5,FC,C3,07,D0,01,60 
10040 DATAA1,FB,C9,24,D0,E7,A9,20,81,FB 
10050 DATA18,A5,FB,69,28,85,FD,A5,FC 
10060 DATA69,00,85,FE,A1,FD,0D,00,C1 ,8D, 
00,CI,A9,25,81,FD 

10071 DATA18,90,C7,AE,3D,C0,AD,20,C0,8D, 
3D,C0,8E,20,C0,20,00,C0 ,60,* 

10080 S9 =49152 

10090 READA$:IFA$ ="*"THEN10 

10100 L$=LEFT$<A$,1):H$=RIGHT*(A$,1) 

10110 L=VAL<L*>:H=VALCH*) 

10120 IFASC <)>64THENL=ASC<L$>-55 
10130 IFASC(H$)>64THENH=ASC<H$>-55 
10140 P0KES9,L*16+H!S9=S9+l:G0T010090 
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Attenzione state per assistere alla brutta figura del vostro computer 
che vi dimostrerà come è possibile commettere un errore incredibil¬ 
mente semplice, un errore che persino un bambino di quattro anni sa 
rebbe in grado di riconoscere. 

I computer sono i più felici del mondo quando devono lavorare con 
l'aritmetica binaria, probabilmente accettano l'aritmetica esadecimale 
come un doveroso compromesso, ma se si insiste a volerli usare per 
comunicare con noi nel sistema decimale sarà solo colpa nostra se co¬ 
nvinceranno a «dare i numeri». 


10 REM ** ** ROOTS <0 1983 MICHAEL BEWS 
12 REM CONVERTED 11-8-83 RICHARD PARRATT 

14 P0KE52,48 :P0KE56,48 :CLR 

15 POKE53280,4 :P0KE53281,6 :PRINTCHR$<5) 

20 GOSUB 1500 

50 PRINTCHR$<142):P0KE56334,PEEK<58334)A 
ND254 

52 POKE1,PEEK <1)AND251 :FOR 1=0 TO 2047:P 
OKEI+12288,PEEK<I+53248):NEXT 

54 POKE1,PEEK<1>0R4:POKE56334,PEEK <58334 

)0R 1 

55 POKE53272,<PEEK <53272)AND240) + 12 

56 FOR X= 1 TO 9: FOR Y=0 TO 7: READ A*. POKE 
12800+X*8+Y,A 

57 NA=NOT<A) 

58 IF NA<0 THEN NA=25S+NA 

59 POKE 13824+X*8+Y,NA:NEXT Y:NEXT X 

100 PRINT"j4J ROOTS <01983 MICH 

AEL BEUJS- 

105 PRINT" CONVERTED 1983 RICHARD PAR 

RATT " 

107 PRINT 

110 PRINT"ifTHIS PROGRAM CALCULATES ROOTS 
USING BOTHTHE INTERNAL 't'FUNCTION IN"; 

112 PRINT" THE COMPUTER ROM AND THE NEUIT 
ON/RAPHSON RE ITERATIVE APPROXIMATION. "; 

113 PR I NT " SS 

115 PR INT"■" s PR INT"■ 99 LIHEN IS A 

• 5' NOT A 1 5' 7? " 

120 PRINT 11 alSTTHE PROGRAM UJILL DEMONSTRATE 
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ONE OF THE PROBLEMS FACED BY YOUR 
125 PRI NT "COMPUTER UJHEN IT TRIES TO"; 

130 PRINT" CONVERT THE RESULT OF IT'S 
BINARY SYSTEM CALCULATIONS INTO DECIMAL 

Il • 

t 

135 PRINT" FOR DISPLAY ON THE SCREEN. 

Il 

140 PR I NT * if^LTHOUGH DE UOULD NEED TO EMP 
LOY MACHINE CODE METHODS TO ACTUALLY ■; 
145 PR INT"SEE THE 'BIT' DIFFERENCE B E TUIE 
EN TUO SEEMINGLY IDENTICAL“; 

147 PRINT" NUMBERS UE CAN"; 

150 PRINT" SHOU YOU THE 'IMPOSSIBLE' A 
S YOUR COMPUTER ’FAILS' TO RECOGNISE"; 
155 PRINT" THE NUMBER FOR UHICH IT IS"; 
157 PRINT" SEARCHING! 


160 PRINT" BPRESS <RETURN> 

162 GET X$:IF XS< >CHRH> < 13 > THEN 162 
170 PRINT"SJ R 0 0 T S <0 1983 MICH 

AEL BEUS" 

175 PRINT!PRINT"fi ANY ROOT CAN BE CA 

LCULATED BY"; 

177 PRINT" RE ITERATIVE APPROXI 

MATION 

180 PR I NT " B ~ * r + G(R-l) -, 


181 PRINT"fl R 


G-| K- 


J 


ii • 

r 

185 PRINT"» 


187 PRINT"» 
NUMBER 

188 PRINT" 
REQUIRED "; 

189 PRINT" 

Il • 

* 

190 PRINT" 

ON TO *N "; 

191 PRINT" 

HE FORMULA"; 

192 PRINT"»- 


UHERE N=ORIGINAL 
R=ROOT NUMBER 
G=ANY NUMBER 
A=APPROXIMATI 
PRODUCED BY T 


193 PRINT"MSIF A<>G THEN UE LET G=A AND 
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REPEATEDLY APPLY THE FORMULA "? 

194 PRINT" MAKING G EQUAL TO THE PRECEDI 

NG VALUE OF 'A' UNTIL A=G " ? 

195 PRINT" AT THIS POINT 

A=*N 

196 PRINT'^B PRESS <RETURN>" 

19? GET X*: IF X$OCHR$<13> THEN 197 

200 PRINT M sfcJ R O O T S (0 1983 MICH 

AEL BEWS" 

201 PR I NT s PR I NT " 3 “ * r -“- + G(R * 

. . Ma 

1 > n 7 


202 PRINT"fl R 

M • 

* 

204 PR I NT “ 91 


«- G“l K- 


EXAMPLE TO FIND 


206 PRINT:PRINT"« 

1*16" __ _ 

208 PRINT” Si 

210 PRINT-aa LET G=3 (A REASONABLE GUESS 
ftS •;:G=3:N=16 

212 PRINT" 1*16 = 4 AS YOU KN0U1) 


225 GOSUB230 
227 GOTO 235 

230 LET A= (N/G+G)/2: RETURN 

235 print"B^g = ";g;tab< 16); "GivES a = ” ; A ; 
GOSUB 1100 
237 PRINT 

240 PRINT' afiUE NOUJ LET G = ";A;" 

242 PRINT" fi@AND TRY THE FORMULA AG 

A IN ' 

243 PRINT 

245 G =A:GOSUB230 

250 PR INT" A.G=”;G;TAB<16); "GIVES A=";A:G 
OSUB 1100 

260 IF A=G THEN GOTO 280 
270 GOTO 245 

280 PRINT s PRINT" flHTHEREFORE *16 

= ■; A s GOSUB 1100 

290 PRINTsPRINT"■ LOOK AT THIS EXAMPL 
E CAREFULLY" 

291 PRINT'B AND THEN PRESS <RETURN>" 

292 GET X*:IF X*OCHR$<13> THEN 292 

300 PRINT“AJ R 0 O T S <0 1983 MICH 
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330 PRINT"aSLET G = 3 AGAIN<|*£5=5 AS UE K 
NOU) ) 

340 LET G=3:N=£5:GOSUB£30 

350 PRINT"W"; :GOSUB 1 100 : PR I NT " OSG = " ; G ; T 
AB <16); "GI VES a=";a 

360 PRINT"2SaaUaUUUI4E NOUi LET G= I, ;A:PR 
INT" aSAND TRY THE FORMULA AGAIN" 

365 LET LI =PEEK<£14) 

370 LET G =A:GOSUB £30 

380 PRINT" A.G = ";G;TAB<16); "GlVES A = " ; A :G 
OSUB 1100 

390 IF A=G THEN GOTO 400 
395 GOTO 370 

400 PR INT: PR INT" jMTHFRFFORF 425 

= ";A:GOSUB 1100 

405 PRINT "YOUR COMPUTER SMFAILEDH3Ì TO S 
TOP ON THE 1ST" 

406 PRINT" BG=5 GIVES A=5!" 

407 PRINT"BECAUSE G DOES NOT EQUAL a*=RE 
CISELYM 5 ! ! " 

410 PRINT:PRINT"! ENTER jSl'R'91 TO RE 

PEAT EXAMPLES" 

41 £ PRINT"» OR JU3T £li<RETURN)* TO TRY 
YOUR OWN"; 

414 GET X$:IF X$="R" THEN GOTO £00 
416 IF X*OCHR$<13> THEN 414 
440 PRINT"AJ R O O T S <0 1983 MICH 

AEL BEL1S " 

500 PRINT: INPUT "SENTER NUMBER <N): i4>0 
AND <1000000B";N$ 

510 IF NS="" THEN GOTO440 

515 FOR X =1 TO LEN<N*> :XD=ASC<MID$<N$,X, 

1 ) >: IF XD< ASC <"0") OR XD >ASC <"9")THEN440 
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520 NEXT X 

530 LET N=VAL<N*>! IF N<.01 OR N>1000000 
GOTO 440 

550 PRINT"SBSH8ENTER NUMBER OF THE DESIR 
ED ROOT 

560 ir^UT " JfROOT <>1 AND <100) ; R$ 

570 IF R$<> M " THEN 580 
575 PRINT"□ 

"••GOTO 550 

530 FOR X =1 TO LEN<R*>:XD=ASC<MID*<R*,X, 
1))! IF XD < ASC("0 " > OR XD >ASC("9")THEN575 
590 NEXT X 

600 LET R =VAL <R*):IF R<2 OR R>99 THEN G 
OTO 575 

610 LET G=2*<Nt(1/R>>:LET X=1 
650 LET A = < N/G t < R - 1 ) +G * < R - 1 ))/R 

660 PRINT "aSgWBHBMfl" J X; " > A=" ;A 

670 IF ABS<A-G)<.0001 THEN GOTO 700 

680 LET X = X+1 :LET G = A:GOTO 650 

700 PRINT:PRINT"a THE";RROOT OF"JN;"IS 

";TAB <19 >; A :GOSUB1100 

ENTER HSl’Q'BBTO QUIT" 

730 PRINT" OR ||a<RETURN>*| TO TRY 

AGAIN"J 

735 GET X*:IF X$=" M THEN 735 

740 IF X$="Q" THEN PRINT"**J":P0KE53272, 

<PEEK <53272)AND240)+5 : END 

750 GOTO 440 

1000 DATA 31 ,24,24,24,216,1 12,96,0 
1010 DATA 112,216,48,96,248..0,0,0,102,1 1 
8,126,126,110,102,0,255 
1020 DATA 24,56,24,24,24,60,0,255 
1028 DATA 48,96,96,96,48,0,0,0,12,6,6,6, 
12 , 0 , 0,0 

1030 DATA 0,88,108,64,64,0,0,0 
1040 DATA 0,0,60,0,0,0,0,0,48,112,48,48, 
120 , 0 , 0,0 
1099 GOTO 1099 

1 100 SL=984+40*PEEK <214):SC=55256+40*PEE 
K <214 ) :FOR J=0 TO 39 :POKESC+J,PEEK<646) 
1110 IF PEEK < SL +J ) =32 THEN POKESL+J,160 
1120 NEXT J 
1 130 RETURN 
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1500 PRINT"MJ R 0 0 T S <01983 MIC 

HAEL BEUiS" 

15 10 PR I NT " *"*"*■“■ |||H«******44«««« 

444 * 44 " 

1520 FOR QQ =1 TO 4:PRINT" 4 * 

44 a : NEXT QQ 

1530 PRINT" 44 PLEASE WAIT 4 

4 " 

1540 FOR QQ 3 1 TO 4:PRINT" 44 

44 " s NEXT QQ 

1550 PRINT" 4444444444444444444 

4 " 

1560 RETURN 



772 


Anagrammi 


Ecco un semplice «anagrammatore». Non c'è niente che renda più fu¬ 
riosi dell'incapacità di rimescolare le lettere di una parola per trovarne 
tutti i possibili anagrammi. Questo piccolo programma potrà forse aiu¬ 
tarvi, dandovi qualche idea nuova su come affrontare il problema. 


10 REM ANAGRAMMATIC.LIALWYN 

15 REM SIMPLE ANAGRAM SOLVER 
20 GOSUB63900 
30 POKEUG,UF:POKEUB,U2 
35 PRINTU3*; 

40 PR INT'^NAGRAMMATIC " 

45 PRINTU7*; 

50 PRINT-SIF YOU ARE A CROSSUJORD AODICT, 
THEN 

60 PR INT " YOU UIILL KNOW THE PROBLEMS OF T 
RYING TO 

65 PRINT"RE-ARRANGE LETTERS. 

70 PR INT"MFOLLOUI THE INSTRUCTIONS AND TH 
EN 

75 PRINT"SIT BACK AND WATCH THE SCREEN A 
S EVERY 

80 PRINT"POSSIBLE COMBINATION RUNS UP BE 
FORE 

85 PRINT"YOUR VERY EYES. THE A IM IS NOT 
TO LOOK 

90 PRINT"AT EVERY WORD-GROUP, BUT SIMPLY 
TO 

95 PRINT"GLANCE AT THE SCREEN OCCASIONAL 
LY AND 

100 PRINT"YOU MAY NELL GET INSPIRATION. 

102 PRINT"BALTERNATIVELY, PUT IN A PRINT 
ER 

103 PRINT"SUBROUTINE IF YOU HAVE AN OUTP 
UT FOR 

104 PRINT"'HARD-COPY'." 

105 PR INT"STRESS ANY KEY TO START" 

106 GETA$:IFA$=""THEN106 
110 PR INT",J"U9$; TABC4); " «BBMBBBffiA 

m a t i c mìmm*y 


N A G R A 




Anagrammi 173 


130 PRINT "HHBTTYPE ONLY THE LETTERS TO BE 
REARRANGED." 

144 INPUT 
150 PRINT 
160 L=LEN<A$> 

170 PR I NT " ARE ANY LETTERS/SPACES KNOLIN? 

< Y/N > 

180 GET Z$:IF 2$="" THEN 180 
130 IF Z$="N" THEN £40 

£00 PRINT"HTYPE IN THE KNOWN ORDER AS PE 
R EXAMPLE. 

£05 PRINT"2E .G. ’ D-F- -EE ’ " 

£06 INPUT"B";K$:LI=L 

£10 T=0:FOR J=1TOLENCK*>:IF MI D$<,J, 1 > 
= "THEN T = Tf1 

££0 NEXT J:IF T<>L THEN GOSUB1000 :GOTO£0 
0 

£30 GOTO£70 

£40 K$ =.FOR J = 1TOL:K$=K$+"-":NEXT J 

£50 INPUT"KNUMBER OF LETTERS TO BEGIN" ; W 
£60 IF W< 1 OR UJ>L OR LI<>INT<LI> THEN GOSU 
B1000 :GOTO£50 
£70 DIM B$ < L ),< L ),GKL> 

£30 PRINT"- 


£90 GOSUB500 
300 FOR J=U TO L 
310 K =1 
3£0 Q < K > = 1 

330 IF B$(Q <K)> = "" THEN 440 
340 C$<K)=B$<Q<K)):B*(Q<K>>="" 

350 K =K +1 

360 IF K< =J THEN 3£0 
370 A = 1 

380 FOR S=1T0LEN(K$) 

330 IF MID$<K$,S,1THEN PRINT C$(A> 

; :A=A+1 :G0T0410 

400 PRINT MID$<K$,S,1>; 

410 NEXT S:PRINT, 

4£0 K=J 

430 B$(Q(K;)=MIDS(AS,G(K),1> 

440 GKIO=Q <K ) + 1 

450 IF Q(KX=L THEN 330 

460 K =K- 1 



774 Anagrammi 


470 IF K >=1 THEN 430 
480 NEXT J 

430 PRINT" sMTTHAT'S ALL THE POSSIBLE ANAG 
RAMS WRITTEN" 

495 PRINT" MTYPE ' RUN ‘ AND RETURN FOR ANO 

THER GO...":END 

500 FOR N=1TOL 

510 B*<N>=MID$<A$,N,1> 

520 NEXT N 
530 RETURN 

1000 PRINT"H0E: R R O R ! PLEASE REDO 

.RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US=1024 :UC=55296 :UG=53281 

63904 UB=53280 :UV=54296 :UA=54277 :U0=5427 
8 : UH = 54273 :UL=54272 

63905 UW=54276:U0=0:U0$=:U1 = 1 :U1$="3" 
:U2=2:U2*= ,, g M 

63906 U3=5:U3$="U M :U4=6:U4$="a" 1 U5=8:U5* 

= " " :U6=9:U6$="B" v. 

63910 U7=10:U7*="O" :U8=13 :U8$="ir:U9=14: 
U9$="a" :UU=4:UU*= 

63915 UR = 12’.UR*="a“ :UE=7:UE$= H BT :UF=1 1 :U 
: RETURN 
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Bioritmi 


La teoria dei bioritmi presuppone che le capacità fisiche, emotive e in¬ 
tellettuali di un individuo siano soggette rispettivamente a cicli regola¬ 
ri di 23, 28 e 33 giorni. 

Durante il ciclo, la curva aumenta fino ad un punto massimo per poi 
scendere al di sotto del valore medio, con un andamento sinusoidale. I 
cicli cominciano alla nascita, e progrediscono a diverse velocità, produ¬ 
cendo dei punti di sovrapposizione, che, se avvengono nei valori più 
bassi della curva, corrispondono a periodi critici (giorni in cui l'indivi¬ 
duo è più facilmente soggetto ad incidenti o errori di giudizio). Parti¬ 
colarmente cruciali sono i giorni in cui si incontrano tutte e tre le cur¬ 
ve e assolutamente positive sono le sovrapposizioni delle curve nei 
punti più alti. 

il programma calcola i cicli a partire dalla nascita e genera la rappre¬ 
sentazione grafica delle curve per periodi di un mese a partire da una 
data prescelta. 


10 REM * * *B IORYTHMS 

20 REM * * *B Y ROBERT ERSK1NE * * * 

£5 GOSUB9000 

30 PRINT"ufcBIORYTHMSMS" 

35 INPUT"YOU NAME PLEASE";N$ 

40 PR INT"HTH IS PROGRAM UJILL COMPUTE YOUR 
PRESENT" 

50 PRINT"STATES OF YOUR PHYSICAL,EMOTION 
AL AND" 

60 PRINT"INTELLECTUAL CYCLES.PLEASE ENTE 
R YOUR" 

70 PRINT"DATE OF BIRTH AND THE DATE TODA 
Y. MS" 

80 INPUT"LIHAT YEAR NERE YOU BORN" ; YB : YB = 
INTCYB) 

90 INPUT"WHAT MONTH (NUMBER)"; MB : IFMB<10 
RMB >12THEN90 

100 INPUT"LIHAT DAY IN THE MONTH " ; DB : IFDB 
<10RDB>M < MB)-M < MB-1)THEN100 
110 INPUT"LIHAT IS THE YEAR TODAY" ; TY: IFT 
Y < YBTHEN110 

120 INPUT"THE PRESENT MONTH";TM:IFTM<1OR 
TM>12THEN120 

130 INPUT"THE DAY TODAY"jTD: IFTD<1ORTD>M 
(TM)-M< TM-1)THEN130 
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140 PRINT"SU2PRE AT.NQW I 'LL WORK OUT YOU 
R BIORYTHMS." 

150 FORT=1TO3000:NEXT 
160 T=<YB-1>*365.25 
170 T£ = <TY-1)*365.£5 
130 IFMB>1THENT=T+M<MB-1) 

130 IFTM>1THENT£=T£+M(TM-1 ) 

£00 IFMB >£ AND YB/4=INT<YB/4> THEN T = T+1 
! REM LEAP YEAR 

£10 IF TM>£ AND TY/4=INT<TY/4) THEN T£ = T 
£ +1 : REM LEAP YEAR 
££0 T=T+DB:T£=T£+TD 
330 D =T£-T 

340 IF TM=MB AND TD =DB THEN GOSUB5000 
350 PRINT"LE IORYTHMS FOR "N^:PRINT"DATE : 
" TD " / " TM " / " TY 

360 PRINT"#-PHYSICAL O-EM0T1ONAL *-INTEL 
LECTUAL" 

365 PR INT"a<-TODAY. EVERY PO INT SHOWS THE 
NEXT DAY" 

370 PR I NT " KSSSSmSHI- 

____________M 

500 P =D-<INT < D/£3)*£3 > 

510 E=D-(INT(D/£8)*£8 > 

5£0 I =D- <INT(D/33)*33) 

530 F0RL=1T03:0=D-1 

540 FORA=0TO33 

550 0=0+1sIFO=P(L)THENO=0 

560 Y=INT(10*SIN(O*£*rf/P<L>)>:SP=1544-Y* 
40+A 

570 POKESP,C<L):POKE54£7£+SP,0 
580 NEXTA,L 

530 PR INT"1I*BM*BMPRESS SPACE FOR ANOTH 
ER ANALYSIS"; 

600 GETA$:IFA$<>" "THEN600 

700 RUN 
333 END 

5000 REM PLAY 'HAPPY BIRTHDAY' 

5005 PRINT"UHAPPY BPIRTHDAY "A$"!" 

5010 S = 54£7£:FORL = 0TO£4:POKES+L,0 :NEXT:P 
OKES+5,9:POKES+6,0 :POKES + 1£ ,7£ 

5015 POKES +13,0 
50£0 POKES +£4,15 
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5030 READH,L,DR: IFH = - 1THENFORT=1TO3000:P 
0KE54296,0 : RETURN 

503 1 UJ=<H*256+L)/£:E=INT<UI/256> :R=W-E*£5 
6 

5040 POKES+7,R:POKES +8,E :POKES +1,H:POKES 
, L!POKES +4,17 :POKES + 11,17 

5050 FORT=1TODR/3:NEXT:POKES +4,16:P0KES + 
11,16 

5060 FORT=1TO30:NEXT: GOTO5030 
5070 REM TUNE DATA FOLLCUJS 
9000 REM SETUP 

9010 DATA31,53,90,120,151,181,212,243,27 

3,304,334,365 

9020 DIM M<1£) 

9030 FORA=1TO12 s READM(A):NEXT 
9040 C <1> =8 1:C<2)=87:C<3)=42 
9050 P<1>=23:P<£>=£3:P<3)=33 
9060 RETURN 

9070 REM TUNE DATA FOLLOWS 

9080 DATA35,75,500,35,75,250,33,126,1000 

,35,75,1000,45,198,1000,43 ,52 ,2000 

9090 DATA35,75,500,35,75,£50,3S,126,1000 

,35,75,1000,51,97,1000,45,193,2000 

9100 DATA35,75,500,35,75,250,68,149,1000 

,57,172,1000,45,198,1000 

3110 DATA43,52,1000,38,126,3506 

9 120 DATA61,126,500,6 1,126,250,57,172,10 

00 ,45,198,1000,51 ,97,1000,45,198,3000 

9130 DATA-1,-1,-1 
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Toro o mucca? 


scegliendo un numero di quattro cifre, il computer risponde ai vostri 
tentativi di indovinare (o alle vostre deduzioni, speriamo) generando 
un toro, per ogni cifra indovinata e al posto giusto, e una mucca per 
ogni cifra indovinata ma nel posto sbagliato. Per rendere la cosa più 
difficile, il computer è programmato per generare numeri con cifre 
ripetute. 

Per rendere il gioco più difficile, a mano a mano che acquistate mag¬ 
giore pratica, potete ridurre il numero di tentativi concessi. 


0 REM***64 VERSIONI*** 

1 REM BULLS ANO COUIS BY ROBERT ERSKINE , 
ADAPTED BY DAVID BUCK 

5 PR INT" jan^ETTING UP . . . “ 

6 POKE 52,48 :POKE 56,48:CLR 

7 POKE 53281,6:POKE 53280,14 
10 GOSUB 8000 

15 DIM A < 4 ), H < 4 ), J < 4 ), N < 4 ) 

20 GOSUB 8000 
26 FOR X=1 TO 4 

100 R=RNO<-TI): INPUT" |OW MANY GUESSES DO 
YOU UANT"? T 
110 GOSUB 1000 

120 PRINT HAVE CHOSEN A NUMBER":FOR A 
= 1 TO 1000 :NEXT A 
130 GOSUB 2000 
135 FOR Q=1 TO T 

140 INPUT "ENTER YOUR GUESS NOUI <4 DIGIT 
S ) " ; G 

150 GOSUB 200 

160 GOSUB 3000 

170 IF BLACK<4 THEN NEXT Q 

180 FOR A=1 TO 1000:NEXT A:GOSUB 4000 

NY KEY TO RESTART" 

195 GET A$:IF A*="" THEN 185 

196 GOTO 100 

200 LET BLACK =0 :LET WHITE=0 

205 FOR R=1 TO 4 :LET A(R)=0:LET H<R>=0:L 

ET J <R)=0 :NEXT R 
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210 LET G*=MID$<STR$(G>,2) 

215 FOR X= 1 TO 4 

216 LET A<X>=VAL<MID$<G$,X, 1 ) ) 

217 NEXT X 

220 FOR X=1 TO 4 

230 IF A <X )=N<X) THEN LET BLACK=BLACK + 1 : 

LET H <X) = 1 :LET J(X> = 1 

240 NEXT X 

260 FOR X = 1 TO 4 

270 FOR Y=1 TO 4 

280 IFA <X)= N < Y)ANDH < Y)=0ANDJ <X)=0THENLET 
L*JH I TE =LiH I TE + 1 : LETH < Y> = 1 : J ( X > = 1 : GOTO 3 10 
290 NEXT Y 
310 NEXT X 
320 PRINT Q; 

330 RETURN 

1000 FOR X =1 TO 4 

1010 LET N(X:> = 1NT(RND<TI )*9) + l 

1020 NEXT X 

1030 RETURN 

2000 POKE 53280,14!POKE 54281,6 :PRINT"BU 

Il t 
9 

2010 POKE 53272,<PEEK<53272) AND 240)+12 
:PRINT"GUESSES BULLS COWS" 


2020 

PRINT 


2030 

RETURN 


3000 

IF BLACK =0 THEN 3070 


3010 

LET F = 13 


3020 

FOR X =1 TO BLACK 


3030 

PRINT TAB <F); "■©B” ; 


3040 

GOSUB 10000 


3050 

LET F =F + 1 


3060 

NEXT X 


3070 

IF LIH ITE =0 THEN 3130 


3030 

LET F =£2 


3035 

FOR X=1 TO UH ITE 


3090 

PRINT TAB<F>;"atffl"; 


3100 

GOSUB 10000 


3110 

LET F =F + 1 


3120 

NEXT X 


3130 

FRI ITT 


3160 

RETURN 


4000 

POKE 53272,23: IF BLACK<4 THEN 

4030 

4010 

PRINT"tJUro IOU ARE CORRECT. | HE 

NUMB 

ER -, 

CHOSE LIAS 


4020 

GOTO 4040 
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4030 PR1NT"J|HAT WAS NOT VERY GOOD. | HE N 
UMBER ^ CHOSE WAS " ; 

4040 FOR X= 1 TO 4 
4050 PRINTN<X)? 

4060 NEXT X 

4070 PRINT:PRINT:PRINT "AND YOU GUESSED 

Il • 

r 

4080 FOR X=1 TO 4 
4090 PRINT A<X>; 

4100 NEXT X 
4110 PRINT 
4120 RETURN 

8000 PI? 1 NT “ . XBigMMM»l I ULLS AND -OWS" 

8020 PR1NT"SI HE OBJECT OF |ULLS AND -OWS 
13 TO GUESS”; 

8030 PRINT"A FOUR DIGIT NUMBER,CHOSEN BY 
THE " 

8040 PRINT"COMPUTER.4FTER EACH GUESS THE 
COMPUTER" 

8050 PRINT"WILL GlVE YOU CLUES;EACH BULL 
INDICATES" 

8060 PRINT"A CORRECT DIGIT IN THE CORREO 
T POS ITION" 

8070 PRINT"AND EACH COU INDICATES A CORR 
ECT DIGIT" 

8080 PRINT"IN THE WRONG P03ITI0N.IHE DIG 
ITS USED ARE 1-9." 

8090 ppTMT«fMHM i^trcc ANY KEY TO STAR 
T" 

8100 GET A$:IF A* ="" THEN 8100 
8110 RETURN 

9000 DATA 0,2,3,255,126,126,66,66,0,0,3, 
255,126,126,66,66 

9020 POKE 56334,PEEK<56334) AND 254 
3030 POKE 1 ,PEEK <1) AND 25 1 
9040 FOR 1 = 16 TO 51l:P0KE I + 12288,PEEK<I 
+53248):NEXT 

9050 FOR 1=0 TO 15 : READ AsPOKE 1 + 12288,A 
: NEXT 

9060 POKE 1,PEEK <1)OR 4 

9070 POKE 56334,PEEK<56334) OR 1 

9080 LET S =54272 

9090 FOR L=S TO S+24:P0KE L,0:NEXT L 
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9100 POKE S +5 ,9 : F'OKE S+6,0:POKE S+24,15 
9110 RETURN 

10000 POKE S+1,33:POKE S,135 

10010 POKE S+4,33 

10020 FOR T=1 TO 100 :NEXT T 

10030 POKE S +4,32 

1004O RETURN 
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indovina la geografia 


Ecco un gioco studiato per darvi la possibilità di verificare le vostre co¬ 
noscenze in geografia (e parliamo di conoscenza approfondita! Lo sa¬ 
pevate, per esempio, che Ruteng è una città dell'Indonesia?). I giocato¬ 
ri devono pensare un termine geografico che inizia con l'ultima lette¬ 
ra del nome pensato dal giocatore precedente. Nel gioco sieti voi con¬ 
tro il computer, che di volta in volta cercherà di sfidarvi offrendovi 
nomi fittizi. Provate se ve la sentite! Naturalmente, se lo desiderate, 
potete tentare di sfidare voi il computer, ma ricordate che quest'ulti¬ 
mo può sempre mettere in discussione il nome da voi proposto. 


5 REM END INGS.WALWYN 

10 BOSUB7000 
40 M1=0:M2=0 

50 DIM G$(500>,C < 500 ),K$(506>, X < 500 ) 

55 PRINT"J 

60 PRINT"THERE IS A GAME OF 'GEOGRAPHY E 
NDINGS' " 

65 PRINT"UJHERE EACH PLAYER IN TURN HAS T 
0 NAME" 

70 PRINT"A COUNTRY,TOWN,RIVER,MOUNTAIN 0 
R OTHER" 

72 PR INT" GEOGRAPH ICAL PLACE-NAME LJHICH 

II 

74 PR INT"STARTS LIITH THE jS-AST LETTERH 0 
F THE " 

76 PRINT"PREVIOUS PLACE-NAME." 

78 PRINT"HI SHALL TARE YOU ON....I MAY C 
HALLENGE 

80 PRINT"YOU IF I DON'T THINK YOU ARE Gl 
VING ME" 

82 PRINT"A REAL PLACE-NAME. YOU CAN CHAL 
LENGE ME" 

84 PRINT"IF YOU THINK I AM MAKING SOMETH 
ING UP." 

86 PR INT"BaJHEN IT IS YOUR GO, YOU PRESS 
EITHER" 

88 PRINT"fiPETURN* IF YOU ACCEPT MY NAME 
OR" 

90 PR INT "Si * ■ IF YOU WISH TO CHALLENGE 
ME . " 
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92 PRINT" MI SHALL LEARN A3 LE GO. NO PLA 
CE-NAME" 

94 PRINT"MAY BE USED MORE THhN ONCE." 

100 DIM C*<10) 

101 REM C$=TYPE OF GEOGRAPHICAL DATA FRO 
M 0-8 

102 C$<0)="A CONTINENT":C$<1)="A COUNTRY 
IN" 

103 C$<2)="A RIVER IN"!C$<3 > = " A MOUNTAIN 
IN" 

104 C$<4)="A LAKE IN":C$<5)="A TOWN IN" 

105 C$<6)="A DESERT IN"!C$<7)="AN ISLAND 
IN" 

106 C$<8)="AN OCEAN" : C*<9 ) =’’A SEA " 

107 C$<10)="A DISTRICT IN" 

110 REM START OF DATA 

111 REM DATA IS STORED AS. 

112 REM 1) G$=GEOGRAPHICAL NAME 

113 REM 2) C =SUBSCRIPT NUMBER TYFE OF C* 

114 REM 3) K$=COUNTRY INVOLVED 

115 REM FIRSTLY FIND OUT HOW MANY ENTRIE 
S IN DATA... 

117 N=0 

113 READGSKN),C<N>,K$(N):IFG*<N)="ZZZ"TH 
ENI000 


1 19 

N=N+ 1 

! GOTO 118 

120 

DATA 

AACHEN,5, W.6ERMANY 

121 

DATA 

ABERFAN,5,WALES 

122 

DATA 

ABBEV1LLE,5,FRANGE 

123 

DATA 

ABU DHAB1,1,THE GULF 

124 

DATA 

ACAPULCO,55,MEXICO 

125 

DATA 

ADDIS ABABA,5,ETHIOPIA 

12S 

DATA 

ASIA ,0 ,"" 

127 

DATA 

AFRICA,©,"" ‘ 

128 

DATA 

AUSTRALIA,0,"" 

129 

DATA 

AUSTRALASI A,0,"" 

130 

DATA 

AMERICA,©,"" 

131 

DATA 

ARCTIC,0,"" 

132 

DATA 

ANTARCTICA,0,"" 

133 

DATA 

ANAN,5,JAPAN 

134 

DATA 

AMADI,5,SUDAN 

135 

DATA 

AMUR,2,THE USSR 

136 

DATA 

ANGLESEY,7,BRITA IN 

137 

DATA 

ANGERS,5,FRANGE 
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138 DATA ARDLU1,5,SCOTLAND 

139 DATA ARNHEM,5,HQLLAND 

140 DATA AVON,- £ , BR ITAIN 

141 DATA ARRAN,7,BRITA IN 
1 4£ DATA AYR,5,SCOTLAND 

143 DATA ASCENSI0N,7,THE ATLANTIC OCEAN 

144 DATA ATLANTIC,8,"" 

145 DATA AFGHANISTAN,1,ASIA 
148 DATA ARLES,5,FRANGE 

147 DATA AXMINSTER,5,BRITAIN 

148 DATA ARNO,2,1TALY 

148 DATA BRITAIN,1,EUROPE 

158 DATA BOLIVIA,1,SOUTH AMERICA 

151 DATA BARCELONA,5,SPA IN 

152 DATA BALI,7,INDONESIA 

153 DATA BANFF,5,SCOTLAND 

154 DATA BOTSUANA,1,AFRICA 

155 DATA BASILD0N,5,ENGLAND 

158 DATA BELIZE,1,CENTRAL AMERICA 

157 DATA BOSTON,5,THE UNITED STATES 

158 DATA BELG1UM,1,EUROPE 

159 DATA BRUSSELS,5 , BELG IUM 

160 DATA BULGARIA,1,EASTERN EUROPE 
16 1 DATA BULALIAYO ,5 ,Z IMBABLIE 

162 DATA BURY,5,ENGLAND 

163 DATA BERLIN,5,GERMANY 

164 DATA BAYEUX,5,NORTHERN FRANCE 

165 DATA BOURNEMOUTH,5,ENGLAND 

166 DATA BRA2IL,1,SOUTH AMERICA 

167 DATA BEN NEVIS,3,SCOTLAND 

168 DATA 3IARRITZ,5,FRANCE 

169 DATA BLOIS,5,FRANCE 

170 DATA BIU,5,NIGERIA 

171 DATA CADIZ,5,SPAIN 

172 DATA CAIRÒ,5,EGYPT 

173 DATA CAMBRIDGE,5,ENGLAND 

174 DATA GASP IAN,9,"" 

175 DATA CATERHAM,5,ENGLAND 

176 DATA CHAD , 1 ,AFRICA 

177 DATA CHINA,1,ASIA 

178 DATA CHILE , 1 ,SOUTH AMERICA 

179 DATA CQRFU,7,THE MED ITERRANEAN 

180 DATA CONGO,2,AFRICA 
18 1 DATA COR INTH,5,GREECE 

182 DATA CYPRUS, 1 ,THE MED ITERRANEAN 
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183 DATA CUENCA,5,SPAIN 

184 DATA CROWBOROUGH,5,ENGLAND 

185 DATA COSTA RICA,1,CENTRAL AMERICA 

186 DATA CRAC0W,5 ,POLAND 
137 DATA CORDOBA,5,SPA IN 

188 DATA COPENHAGEN,5,DENMARK 

189 DATA GRATI,5,ITALY 

190 DATA CRES,7,YUGOSLAVIA 

191 DATA CUZCO,5,PERÙ 

192 DATA DENMARK,1,EUROPE 

193 DATA DART,2,ENGLAND 

194 DATA DATIA,5,INDIA 

195 DATA DEVIZES,5,ENGLAND 

196 DATA DILI,5,INDONESIA 

197 DATA DON,2,THE USSR 

198 DATA DNIEPER,2,THE USSR 

199 DATA DEE,2,WALES 

200 DATA DONDO,5,ANGOLA 

201 DATA DERBY,5,ENGLAND 

202 DATA DORES,5,SCOTLAND 

203 DATA DUNKIRK,5,FRANCE 

204 DATA DURBAN,5,SOUTH AFRICA 

205 DATA DUNGU,5,ZAIRE 

206 DATA DEAL,5,ENGLAND 

207 DATA DOVER,5,ENGLAND 

208 DATA D00N,2,SCOTLAND 

209 DATA DOUGLAS,5,THE ISLE OF MAN 

210 DATA DRAU,2,AUSTRIA 
311 DATA DEJ,5,ROMANIA 

£12 DATA CALDA,5,IVORY CGAST 
213 DATA ELBE,2,GERMANY 
2 14 DATA ELBA,7,THE MED ITERRANEAN 

215 DATA ELY,5,ENGLAND 

216 DATA EL SALVADOR,1,CENTRAL AMERICA 

217 DATA ELMAL1,5,TURKEY 

218 DATA ENGLAND,1,EUROPE 
2 13 DATA EUROPE ,0 , M 

220 DATA ESTEPONA,5,SPA IN 

221 DATA ETHIOPIA,1,AFRICA 

222 DATA ERIE,4,CANADA 

223 DATA EVEREST,3,ASIA 

224 DATA EXE,2,ENGLAND 

225 DATA ELAT,5,ISRAEL 
£26 DATA EDHESSA,5,GREECE 



186 indovina la geografia 


2£7 DATA EL QASR,5,EGYPT 

S£8 DATA ET0N,5,ENGLAND 

£29 DATA ELDORADO ,.5 , ARGENTINA 

230 DATA ELEPHANT,7,THE ATLANTIC 

231 DATA EASTBOURhC ,5,ENGLAND 

232 DATA EKSJO,5,SWEDEN 

233 DATA ETTRICK,2,SCOTLAND 

234 DATA FRANCE,l,EUROPE 

235 DATA FINLAND , 1,EUROPE 
23G DATA FORFAR,5,SCOTLAND 

237 DATA FUXIN,5,CHINA 

238 DATA FORT GEORGE,5,CANADA 

239 DATA FARNBOROUGH,5,ENGLAND 

240 DATA FAXE,2,SMEDEN 

241 DATA FARSUND, 5,NORWAY 

242 DATA FIJI,7,THE PACIFIC 
2^3 DATA FROME,2,ENGLAND 

244 DATA FRAY BENTOS,5 ^URUGUAY 

245 DATA F0RST,5,EAST GERMANY 
248 DATA FINDHORN,£,SCOTLAND 
247 DATA FUJIYAMA,3, JAPAN 

243 DATA FOX,2,THE UNITED STATES 
£43 DATA FENIT,5,IRELAND 

250 DATA FAO ,5,IRAQ 

251 DATA FE IRA,5,BRA2IL 

£52 DATA GABON,1,WEST AFRICA 

253 DATA GANGES,2,INDIA 

£54 DATA GDANSK,5,ROLAND 

£55 DATA GUATEMALA,1,CENTRAL AMERICA 

256 DATA GOKSUN,5,TURKEY 

£57 DATA GIRONDE,2,FRANCE 

£58 DATA Gl FU, 5, JAPAN 

£59 DATA GOBI,6,ASIA 

260 DATA GORING,5,ENGLAND 

£61 DATA GRETNA GREEN,5,BRITAIN 

£62 DATA GUINEA,1,AFRICA 

£63 DATA GUNGLI ,5 ,ZA IRE 

£64 DATA GREAT DUNMOW,5,ENGLAND 

265 DATA GRAZ,5,AUSTRIA 

£66 DATA HUNGARY,1,EUROPE 

£67 DATA HEB1,5,CHINA 

£68 DATA HATTON,5,ENGLAND 

269 DATA HAMBURG,5,WEST GERMANY 

£70 DATA HARWICH,5,ENGLAND 
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£71 DATA HOBART,5,AUSTRALIA 

£7£ DATA HEREFORD,5,ENGLAND 

£73 DATft HONDURAS,1,CENTRAL AMERICA 

£74 DATA HONOLULU,5,HAWAII 

£75 DATA HONG KONG,7,ASIA 

£76 DATA HUDSON,2,THE UNITED STATES 

277 DATA HUAI HO,2,CHINA 

278 DATA HUE,5,VIETNAM 

279 DATA HYDERABAD,5,INDIA 

280 DATA HOLYHEAD ,5 ,UJALES 

281 DATA INDIA,1,ASIA 

282 DATA IMATRA,5,FINLAND 

283 DATA INA,5,P0LAND 

234 DATA IRAQ,1,THE MIDDLE EAST 
285 DATA IPOH,5,MALAYSIA 
288 DATA IWO,5,NIGER IA 

287 DATA ISLAMABAD,5,PAKISTAN 

288 DATA ICELAND,1,EUROPE 

289 DATA INDUS,2,PAKISTAN 
£90 DATA IONA,7,BRITA IN 

291 DATA IONIAN,9,“" 

292 DATA INDIAN,8,"“ 

£93 DATA ISCHI A,5,ITALY 
£94 DATA ITALY,1,EUROPE 
£95 DATA JAPAN,1,ASIA 

£96 DATA JAMEST0LIN,5 ,THE UNITED STATES 
£97 DATA JER ICHO,5,JORDAN 

293 DATA JORDAN,£ PALESTINE 

£93 DATA JAMICA,7,THE CARRIBEAN 

300 DATA JOS,5,NIGERIA 

301 DATA JERUSALEM,5,ISRAEL 

302 DATA JACKSON,5,THE UNITED STATES 

303 DATA JOMBANG,5,1NDONESIA 

304 DATA JO1NVILLE,5 ,BRAZ IL 

305 DATA JIMMAN,5,ETHIOPIA 

306 DATA KARACHI,5,PAKISTAN 

307 DATA KEFLAVIK,5,ICELAND 
303 DATA KAZUMBA,5,2A IRE 

309 DATA KIRKBY,5,ENGLAND 

310 DATA KENYA,1,AFRICA 

311 DATA K0M,2,CAMEROON 

312 DATA KYOTO,5,JAPAN 

313 DATA KUWAIT,1,THE MIDDLE EAST 

314 DATA KRISHNA,2,INDIA 
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315 DATA KHART0UM,5,SUDAN 

316 DATA LAUNCEST0N,5,ENGLANO 

317 DATA LANCASTER,5,ENGLAND 

318 DATA LIMA,5,PERÙ 

319 DATA LAMAR,5,THE UNITED STATES 

320 DATA LOS ANGELES,5,THE UNITED STATES 

321 DATA LOTUKE,3,SUDAN 

322 DATA LUCKN0W,5,INDIA 

323 DATA LUANDA,5,ANGOLA 

324 DATA LANG0N,5,FRANCE 

325 DATA LUXEMBOURG,1,EUROPE 

326 DATA LUNE,2,ENGLAND 

327 DATA MAFEKING,5,SOUTH AFRICA 

328 DATA MANCHESTER,5,ENGLAND 

329 DATA MARTINIQUE,1,CENTRAL AMERICA 

330 DATA MAJORCA,7,THE MED ITERRANEAN 

331 DATA MOBILE,5,THE UNITED STATES 

332 DATA MEKONG,2,ASIA 

333 DATA MONROVIA,5,LIBER IA 

334 DATA MANONO,5,2A IRE 

335 DATA MOMBASA,5,KENYA 

336 DATA MURMANSK,5,THE USSR 

337 DATA M0SK0L),5 ,THE USSR 

338 DATA NEWFOUNDLAND,7,CANADA 

339 DATA NEWPORT,5,ENGLAND 

340 DATA NET0,2,ITALY 

341 DATA NIGERIA,1,WEST AFRICA 

342 DATA NYANGA,2,GABON 

343 DATA NEW 2EALAND,1,AUSTRALASIA 

344 DATA NALUT,5,LIBYA 

345 DATA NAIRN,5,SCOTLAND 

346 DATA NORTH, 9 , " " 

347 DATA NORTHAMPTON,5,ENGLAND 

348 DATA NICOSIA,5,CYPRUS 

349 DATA OSAKA,5,JAPAN 

350 DATA ORMSKIRK,5,ENGLAND 

351 DATA OVIEDO,5,SPAIN 

352 DATA OTTER,2,ENGLAND 

353 DATA 0R0NSAY,7,SCOTLAND 

354 DATA OFFENBACH,5,WEST GERMANY 

355 DATA OH IO,2,THE UNITED STATES 

356 DATA OSLO,5,NORWAY 

357 DATA ORRIN,2,SCOTLAND 

358 DATA OLDHAM,5,ENGLAND 
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359 DATA PEKING, 5 ,CHINA 

360 DATA PANAMA,1,CENTRAL AMERICA 

361 DATA PARAGUAY,1,SOUTH AMERICA 

362 DATA POOLE,5,ENGLAND 

363 DATA PORTLAND,5,THE UNITED STATES 

364 DATA PORTSMOUTH,5,ENGLAND 

365 DATA POPOCATEPETL,3,MEXICO 

366 DATA PHILLEPINES,1,ASIA 

367 DATA PORTUGAL,1,EUROPE 

368 DATA PUTAO,5,BURMA 

369 DATA PUNJAB,10,1NDIA 

370 DATA QATAR,1,THE MIDDLE EAST 

371 DATA QATIF,5,SAUDI ARABIA 

372 DATA QUEBEC,5,CANADA 

373 DATA QUITO,5,ECUADOR 

374 DATA QUIMPER,5,FRANGE 

375 DATA Q0M,5,IRAN 

376 DATA RED,9 , "" 

377 DATA RESOLUTION,7,THE PACIFIC 
376 DATA RAGLAN,5,WALES 

379 DATA RYDE,5,ENGLAND 

380 DATA RUHR,10,WEST GERMANY 

381 DATA ROTHERHAM,5,ENGLAND 

382 DATA RA2AN,5,1RAN 

383 DATA RAMA,5,NICARAGUA 

384 DATA RIOSUCIO,5,COLOMBIA 

385 DATA RUTENG,5,INDONESIA 
336 DATA ROYSTON,5,ENGLAND 

387 DATA RAPID CITY,5,THE UNITED STATES 

388 DATA ST HELENA,7,THE ATLANTIC 
339 DATA ST HELENS,5,ENGLAND 

390 DATA SANTIAGO,5,CHILE 

391 DATA SPA IN,1,EUROPE 

392 DATA SALON,5,FRANGE 

393 DATA SAFRI,5,ITALY 

394 DATA SKOPJE,5,YUG03LAVIA 

395 DATA SLEDMERE,5,ENGLAND 

396 DATA SEVASTOPOL,5,THE USSR 

397 DATA SWITZERLAND,1,EUROPE 

398 DATA SOMERSET,10,ENGLAND 

399 DATA SPANDAU,5,WEST GERMANY 

400 DATA STORD,7,NORWAY 

401 DATA SWANSEA,5,WALES 

402 DATA SUTT0N,5,ENGLAND 
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403 DATA SUEDEN, 1 ,EUROPE 

404 DATA SPA , 5 ,BELGIUM 

405 DATA SUEZ,5,EGYPT 

406 DATA SULTANABAD, 5 ,IRAN 

407 DATA TURKEY,1,EUROPE 

408 DATA TAMPERE,5,FINLAND 

409 DATA TAY,2,SCOTLAND 

410 DATA TASHKENT,5, THE USSR 

411 DATA TEIGNMOUTH,5,ENGLAND 

412 DATA THAILAND,1,ASIA 

413 DATA THAMES,2,ENGLAND 

414 DATA TAIWAN,1,ASIA 

415 DATA TONBRIDGE,5,ENGLAND 
4 16 DATA TOLEDO,5,SPA IN 

417 DATA TOWYN,5,WALES 
41S DATA TULI,5,ZIMBABWE 

419 DATA TSU,5,JAPAN 

420 DATA TRIPOLI,5,LIBYA 

421 DATA TQULON,5,FRANCE 

422 DATA ULLAPOOL,5,SCOTLAND 

423 DATA UDAIPUR,5,INDIA 

424 DATA USACK,5,TURKEY 

425 DATA JLM,5,WEST GERMANY 

426 DATA UTTOXETER,5,ENGLAND 

427 DATA UYUNI,5,BOLIVIA 

428 DATA IJYO , 5 , NIGER IA 

429 DATA VENEZUELA,1,SOUTH AMERICA 

430 DATA VAAL,2,SOUTH AFRICA 

431 DATA VERSAILLES,5,FRANCE 

432 DATA VIGO,5,SPAIN 

433 DATA VICTORIA,10,AUSTRAL IA 

434 DATA VOLTA,2,GHANA 

435 DATA VOUGA,2,PORTUGAL 

436 DATA WAAL,2,HOLLANO 

437 DATA WEST GERMANY,1,EUROPE 

438 DATA WOLVERHAMPTON,5,ENGLAND 

439 DATA WYE,2,ENGLAND 

440 DATA WHITCHLIRCH,5,ENGLAND 

441 DATA WAREHAM,5,ENGLAND 

442 DATA WEMBLEY,5,ENGLAND 

443 DATA WUHAN,5,CHINA 

444 DATA WILDSPITZE,3,AUSTRIA 

445 DATA WHAKATANE,5,NEW ZEALANO 

446 DATA WILSON,3,THE UNITED STATES 
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447 DATA XIAMEN,5, CHINA 

448 DATA XAI XA1,5/MOZAMBIQUE 

449 DATA XINGU,£,BRAZ IL 

450 DATA XINXIANG,5,CHINA 

451 DATA XAU , 4 , BOTSIJANA 
45£ DATA YORK,5,ENGLAND 

453 DATA YUCATAN,10,MEXICO 

454 DATA YUGOSLAVIA , 1,EUROPE 

455 DATA YOKOHAMA,5,JAPAN 

456 DATA YVETOT,5,FRANGE 

457 DATA YEO,2,ENGLAND 

458 DATA YELLOLKNIFE,5,CANADA 

459 DATA 2 I MB ABUIE , 1 , AFR ICA 

460 DATA ZLOLLE,5,HOLLAND 
481 DATA ZONGO,5,ZAIRE 

462 DATA ZA IRE,1,AFRICA 

463 DATA ZAPALA,5,ARGENTINA 

464 DATA ZHOB,2,PAKISTAN 

465 DATA ZAHLE,5,LEBANON 

999 DATA ZZ2,0,Z22 

1000 REM START OF GAME 

1002 PRINT " WBiaP RESS ANY KEY TO START" 

1003 GETA$:IFA$=""THEN1003 
1005 G*(N)="":C<N>=0:K$<N>«"" 

1010 POKEUG,UF:P0KEUB,U5:PRINTUU$; 

102O PR INT" J+ + + +4- + + ++ + + + + ++ +END INGS + + + + + 
+ + +•+• + + + + + + + +" 

1030 PRINTUR$;"aSKDG YOU WANT TO GO FIRS 
T < Y/N)?" 

1040 GETA*:IFA$ =""THEN1040 
1045 P$=" " 

1050 I FA$="N"THEN2000 
1060 IFA$="Y"THEN3000 
1070 GOTO 1040 
£000 REM COMPUTER GO 
£010 L5=0:B$=RIGHT$<P$,1) 

2020 IFB*=""THEN2100 
£025 IFRND(1)>.9THEN220O 
£030 Q =INT <RND <1)#N> 

£035 W=0 

2040 JFL$>B*THENG= INT<Q*RND ' 1 ; > 

2041 IFL$<B$THENG=INT'Q/RND(1)) 

2042 IFG >NTHENQ-I NT< FND <1>*N> 

2644 L*=LEFT*<G*<Q),1>:IFL*=B*ANDX<Q><>1 
THENP$=G$<Q>:GOTO2500 
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£050 W=W+1 : IFL-J> 10OTHEN££00 
£060 GGTO2040 
£100 REM FIRST G0 
£105 IFRND<1>>.85THEN££00 
£110 Q=INT <RND <1)*N> 

£ 1£0 IF X < Q > = 1 THEN£110 
£ 1£5 P*=G$(G> 

£130 GQTO£500 

££O0 PEM COMPUTER MAKES ONE UP! 

££10 IF6$=""THENBt=CHR$<INT(RND<1>*26>+6 
5) 

£££0 Q=INT<RND<1>*N> 

£2£5 LS^LEFTSKGS'Q? , 1 > 

££30 IFL$=B;*THENP$=LEFT*<G*<G>,INTERNO<i 
) *3+1>>:G0T0££4© 

££35 GOTO£££0 

££40 0=INTCRND < 1> *N>:R=INT<LEN<G*<Q>)/£> 
££45 P*=P<t+MID$<Gir<C!> ,R, INT<RND< 1 >*R + 1 > > 
££50 Q =INT < RND <1 ) *N> 

£255 P^=P$+RIGHT$<G$<Q),INT(RTD <1 >*3 + 1 > > 

2260 L5 = 1 :GOTO2500 

2500 REM COMPUTER PRINTOUT NAME 

£510 PRINTU7*;"S"P« 

£5£0 GETA$:IFA*=""THEN2520 
2530 A=ASC<A$> 

£540 IFA=13THEN£800 
£550 IFA=42THEN£700 
£560 GOTO2520 

£700 REM COMPUTER CHALLENGED! 

£705 PRINTU5*;“HrOU DARE TO CHALLENGE ME 
! " 

£710 FORJ=1TO500:NEXTJ 
£720 IFL5 = 1THEN2750 

£730 PRINTU7$;"HVOU ARE URONG. MY NAME I 
S " 

£735 PR!NTU7*;C$<C<Q>>;" "JK$<Q> 

2740 PRINT"Blr YOU DON-T BELI EVE ME, LOO 
K IT UP!" 

2742 M1=M1+1 

2745 PRINTUR*;“HTHE SCORE IS N0W"M1"TC M 
E AND"M£"TO YOU." 

£746 X(Q>-1:P*="" 

2747 PRINT"STOU START NEXT.":GOTO300 

0 
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2750 PRINTU7*;"MI OLIN UP. YOU ARE RIGHT. 

I MADE IT UP!" 

2752 M2 =M2 +1 :P$="" 

2755 PRINTUR*;"MTHE SCORE IS NOW’Ml"TO M 
E AND"M2"TO YOU.“ 

2757 PRINT"MI'LL START AGAIN....":GOTO20 
00 

2800 REM COMPUTER'S GO ACCEPTED 
28 10 X <Q) = 1 :GOTO3000 
3000 PRINTU9*; "M" ; 

3010 IMPUTO* 

3020 IFP*=""THEN3100 
3030 B*=RIGHT*<P*,1) 

3040 IFB*=LEFT*(Q*,1)THEN3100 
3060 PRINT"MILLEGAL ENTRY. U1RONG INITIAL 
LETTER" 

3070 GOTO3000 

3100 REM CHECKED AND OK 

3120 FORJ =0TON 

3130 IFG* < J)=Q*ANDX < J) = 1THEN3150 
3135 IFG* < J)=Q*THENX < J) = 1 :GOTO3300 
3140 NEXTJ:GOTO3200 

3150 PRINTUR*;"IMOT ACCEPTABLE. IT'S BEE 
N USED BEFORE. " 

3160 GOTO3000 

3200 REM DOES THE COMPUTER CHALLENGE? 
3210 IFRND(1)>,8THEN3230 
3220 GOTO3300 

3230 PRINTUU*;"MCHALLENGE!" 

3240 PRINTUU*;"I DON'T BELI EVE YOU." 

3245 PRINTUR*;"SMOU YOU WILL HAVE TO BE 
H0NE3T LJITH ME. " 

3250 PRINTUR*;"BECAUSE IT IS NOT IN MY D 
ATA BANK." 

3260 PRINTU7*;"MIS IT A REAL PLACE? <Y/N 

> 

3265 GETA*:IFA*=""THEN3265 
3270 IFA*="Y"THEN3500 
3275 IFA*="N"THEN3600 
3280 GOT03265 

3300 P*=Q*:G*<N)=P*:K*(N)="OR SOMETHING. 

I 'VE NO IDEA. " 

3310 K*<N>=K*<N)+" BUT YOU USED IT SO IT 
MUST EXIST!" 
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3320 C(N)=0 :X<N) = 1 :N=N+1 
3330 GOTO2000 

3500 PRINTU7*; "HOK. I BOU TO YOUR GRETTE 
R KNOUJLEDGE ! “ 

3510 M2=M2+1 

3520 PRINTUR*;"ETHE SCORE IS NOUPMl"TO M 
E AND"M2"TO YOU." 

3525 P*= n " 

3530 PR I NT "HI ' LL START NOUI." : GOTO20 

00 

3535 P*=Q*:G*(N>=P*:K*<N>="OR SOMETHING. 

I 'VE NO IDEA. " 

3540 K*<N>=K*<N>+" BUT YOU USED IT SO IT 
MUST EX ISTI " 

3550 C.<N;=0:X<N) = 1 : N=N+1 
3560 GOTO2000 

3600 PR I NT" g|YOU ARE VERY HONEST. THANKYO 
U. " 

3610 M1=M1+1 

3620 PR INTUR$: "gJTHE SCORE IS NOUI"Ml"TO M 
E AND"M2"TO YOU." 

3630 P$="“ 

3640 PRINT"HYOU START NEXT.":GOTO300 

0 

7000 REM ***************************** 
7002 REM COLOUR CODES FOR COMMODORE 64. 
7005 REM <ONLY USE THESE COLOURS) 

70 10 U0 =0 :U0#="■"! REM BLACK 

7020 U 1 = i :U1$="R" :REM UH ITE 

7030 IJ£=2 : U2 f = "3" : REM DARK RED 

7040 U3=5 i U3$= "il" : REM GREEN 

7050 U4=6:U4*="3" : REM DARK BLUE 

7060 U5=8:U5$="":REM ORANGE 

7070 U6=9:U6$="R": REM BROUN 

7060 U7=10:U7$="8":REM PINK 

7090 US = 13 : U8$= "il" ! REM LIGHT GREEN 

7100 U3=14 :U9$ =: REM LIGHT BLUE 

7 110 ’JU = 4 : UU*= "R" : REM PURPLE 

7120 UR=12 :UR^="a" : REM LIGHT GREY 

7 130 UE = 7 :UE$= "RI" :REM LIGHT YELLOU 

7 140 UF-11:UF$="H"! REM DARK GREY 

7200 REM SCREEN 'POKE ' CODES FOR 64. 

7210 US =1024 : REM SCREEN POKE CHARACTER 
7220 UC=55296:REM SCREEN POKE COLOUR 
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7230 UG =53281 : REM BACKGROUND COLOUR 
7240 UB=53280:REM SCREEN BORDER COLOUR 
7300 REM SOUND 'POKE' CODES FOR 64. 

7310 UV=54296:REM VOLUME FOR 3 VOICES 
7320 UA=54277:REM ATTACK FOR VOICE 1 
7330 UD =54278 : REM SUSTAIN FOR VOICE 1 
7340 UH =54273 : REM HIGH BYTE FOR VOICE 1 
7350 UL=54272 : REM LOLI BYTE FOR VOICE 1 
7360 ULI = 54276 : REM UJAVEFORM FOR VOICE 1 
7400 RETURN 

7500 REM ***************************** 
9999 END 
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un calendario 
per la storia 

Probabilmente non vi siete mai resi conto quanto potrebbe essere uti¬ 
le un programma come questo e continuerete a vivere nell'ignoranza 
finché non vi deciderete a batterlo e a farlo funzionare. 

Supponiamo che vogliate sapere in che giorno della settimana siete 
nati o se la battaglia di EL Alamein è stata combattuta di venerdì o di 
sabato. Bene, questo è il programma che può darvi una risposta, indi¬ 
pendentemente dal mese e dall’anno, lo schermo vi mostrerà il calen¬ 
dario nel modo più facile da leggere. Chi l'ha detto che i computer in 
casa non servono a niente? 

5 REM OMNICALENOAR.WALWYN 

10 GOSUB7000 
20 DIM M*<12 >,M<12) 

30 FORJ =1TO12 : READM$< J),M<J>:NEXTJ 

35 DATA JANUARY,31,FEBRUARY,28,MARCH,31 

36 DATA APRIL,30,MAY,31,JUNE,30 

37 DATA JULY,31,AUGUST,31,SEPTEMBER,30 

38 DATA OCTOBER,31,NOVEMBER,30,DECEMBER, 

3 1 

40 Y1 = 1983 :D1=6 

42 REM Y1 IS THE 'BASE YEAR 1 

44 REM DI IS THE DAY NUMBER <6..SATURDAY 

> FOR JAN. 1ST IN BASE YEAR 

WltWPlWMglW '' 

55 SX$= " f»W>BllÌll>»Ì»fÌÌlll»ll»MI 


100 POKEUB ,U7 : POKEUG ,UR : PR INTU43»; "J 
OMNICALENOAR" 

110 PR I NT " --- 

tl 

1 15 PRINTU2* 

120 INPUT"YEAR REQUIRED <1900-2000>";Y$ 
130 IFLENCY$><40RLEN<Y*>>4THEN100 
140 Y = VAL<Y*): IFY< 1900QRY >2000THEN100 
150 PRINTUF* 

160 F0RJ=1T012:PRINTJ;TAB<6)M$<J>:NEXTJ 
170 PRINT 

180 INPUT-MONTH NUMBER"JM$ 

185 IFLEN<M$>>20RLEN<M3O <1THEN180 
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190 M=VAL<M*):IFM>120RM<1THEN180 

195 PRINTU4S; "HB9DK, PLEASE UJAIT UIHILE I 

CALCULATE THE“ 

197 PRINTU4$; "MONTHLY CALENDAR FOR “MS<M 

) * Y 

200 REM CALCULATE AND DRAW CALENDAR 

210 D=D1:IFY<Y1THEN250 

220 IFY >Y1THEN300 

230 IFY=Y1THEN350 

250 REM GOING BACK.... 

255 FOR J =Y1-1TOYSTEP-1 
260 D =D- 1 

270 IFINT < J/4)=J/4THEND = D-1 
280 IFD<lTHEND=D+7 
290 NEXTJ:GOTO400 

300 REM GOING FORLJARD. 

305 FORJ=Y1TOY-1 
310 D =D +1 

320 IFINT (J/4)= J/4THEND =D +1 
330 IFD >7THEND =D-7 
340 NEXTJ s GOTO400 

350 REM THIS YEAR. 

360 D=D1 :GOTO400 

400 FORJ=lTOM:IFJ=MTHEN440 

410 D =D +M< J )-28 

420 IFJ =2AND INT < Y/4)=Y/4THEND =D +1 
430 I FD >7THEND=D-7 
440 NEXTJ 

500 REM PRINT OUT CALENDAR 

510 POKEUB,U6:POKEUG,UF:PRINTUR$"J" ; 

520 PRINT” CALENDAR FOR "M$<M>;Y 

530 PRINT 

532 IFY/4=INTCY/4)ANDM=2THENM<M)=29 

533 IFD +M < M)=29THENN5 =4 :GOTO540 

534 IFD+M<M)<37THENN5=5:GOTO540 

535 N5 =6 

540 PRINTU3*; " a MON I TUE | LIED | THU | F 
RI |"; 

545 PRINTU7*;" SAT | SUN |" 

550 PRINT 

555 F0RJ=1T0N5:F0RK=1T02 

560 PRINTU3$;" alili 


565 PRINTU7^;" 


I" : NEXTK 
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566 PRINTU3*:" « I _I I_I— 

jn • 

567 PRINTU7$;“_I_I" 

570 NEXTJ 

580 PRINTUR*;" PRESS ANY KEY FOR ANOTH 
ER CALENDARa" 

600 REM PRINT OUT DAY NUMBERS 

610 N=0:NN=0:FORJ=1T0N5:FORK=1T07: IFK =DT 

HENN=1 

620 IFN=0THEN680 

630 NN=NN+1 : IFNN>M<M>THEN680 

640 PRINTU3S; : IFK>5THENPRINTU7*; 

645 X2=4:IFNN>9THENX2=3 

650 PR INTLEFT$<SYi*, J*3+3>;LEFT$<SX$, <K-1 
)*5+X2>; 

660 PR I NT " iJ"NN 
680 NE XTK,J 

700 GETAS:IFA«<> M "THEN700 
710 GETA$:IFA$=""THEN710 
720 RUN 

7000 REM ***************************** 
7002 REM CDLOUR CODES FOR COMMODORE 64. 
7005 REM CONLY USE THESE COLOURS) 

7010 U0 =0:U0$="B": REM BLACK 

7020 Ul = l:Ul$="a":REM UH ITE 

7030 U2=2:U2$="3" :REM DARK RED 

7040 U3=5 :U3$= "SI" :REM GREEN 

7050 U4=6:U4$="3*: REM DARK BLUE 

7060 U5 = 8 : U5$= " 11 : REM ORANGE 

7070 U6=9:U6$ =s REM BROUN 

7080 U7 = 10 :U7$= u O"‘REM PINK 

7090 US = 13!U8$="H* : REM LIGHT GREEN 

7100 U9=14:U9$=" □" : REM LIGHT BLUE 

7110 UU=4:UU$=: REM PURPLE 

7120 UR = 12 :UR^="a" : REM LIGHT GREY 

7130 UE=7 : UE$= : REM LIGHT YELLOU 

7 140 UF = 11:UF«="H" : REM DARK GREY 

7200 REM SCREEN 1 POKE 1 CODES FOR 64. 

7210 US=1024:REM SCREEN POKE CHARACTER 
7220 UC=55296: REM SCREEN POKE COLOUR 
7230 UG=53281 : REM BACKGROUND COLOUR 
7240 UB=53280: REM SCREEN BORDER COLOUR 
7400 RETURN 

7500 REM ***************************** 
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Ritorno dalla Luna 


Questo che vi proponiamo è un programma di atterraggio in tempo 
reale che vi offre la possibilità di scoprire che cosa significa essere il 
comandante di una nevicella spaziale di ritorno sulla Terra. L’obiettivo 
del gioco è di far atterrare il veicolo sulla piccolissima area di atterrag¬ 
gio posta in corrispondenza del bordo inferiore dello schermo. Preci¬ 
sione è la dote che si richiede, perché se la velocità di discesa è supe¬ 
riore a — 5, per voi e il vostro equipaggio non c'è speranza. 

Un consiglio: se date troppo accelerazione ai vostri razzi, scomparirete 
nell'iperspazio verso il vostro destino, fino al prossimo ritorno sullo 
schermo, a meno che non abbiate fatto qualcosa per rallentare la 
discesa. 


10 REM ***MOON-LANDER BY ROBERT ERSKINE 

11 REM TIDIED,CORRECTED AND CONVERTEO 

12 REM ***BY PAUL ROPER * * * 

13 REM 

15 GOTO 10000 

16 DEF FNR( X ) = INT(X #RND <1) + 1> 

17 DEF FNP(Q3>=1024+CL+<23-INT<H/87>>*40 
13 DEF FNC<Q3>=1024+C1+(23-INTCH1/87))*4 
0 

19 E < 1)=253:E<2>=252:E<3>=251:E<0>=252 

20 GOSUB8000 
80 GOSUB3000 


85 

90 


DE <0>=249:DE<1)=250 
IF F<=0THENPRINT"ai 


jyyuu 


flOUT OF FUEL 


: F =0 : E =0 :POKE54296,0 


II 


95 IFE =0 THEN150 
100 M=M1 : MI=M-F1 


105 L =L + 1 


1 10 Hl=H:H=<H-t-V)-.81 

120 V=V+< <T/F1>*LOG <<M/M1>>>-1.62 

130 F =F-F 1 

140 GOTO 175 

150 MI=M 

160 H1=H:H=<H+V)-.81 
170 V =V- 1.62 
175 C1=CL 

130 IF CL >0 AND RND <1> >.95THEN CL=CL-1 
185 IF CL<39 AND RND<1)>.95THEN CL=CL+1 
190 PR INT"BasHE IGHT ■UIHIIII 

||: M ; I NT ( H ) 
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200 PR INT"*/ELOC I TY !■■■■■■■■■!: 

"; INT < V) 

210 PRINT-'^UEL !■■■■■■■■■!: 

" ;f 

220 GETA* 

225 IFA$="Q"THEN E=1 :P0KE54236,1 5 
230 IFA$= "fV'THEN E = 0 : P0KE54296,0 
232 IFA*="+"ANDCL>0THENCL=CL-1 
234 IFA*="-"ANDCL<39THENCL=CL+1 

240 IF H >2000 OR H<1 THEN 270 

241 03=1 

245 IFINTCFNC <0 >> = INT<FNP <0)>THEN260 
250 POKEFNC <0 >,32 :POKEFNC(0)+40,32 :POKEF 
NP < 0),2G55 

260 IFE =1THENPOKEFNP <0)+40,E(LAND3 > 

miiiHMirg a 1 

271 IF H >2000 ANO 0S=1 THEN OS = 0:POKEFNC 
<0>,32 :POKEFNC<0>+40,32 
300 IF H< =0 THEN 2010 
310 GOTO90 

2010 IFH< =0 AND V > = -5 THENPR I NT " agKMMflEia 
YOU HAVE LANDED" 

2020 I FH < =0 AND V<-5 THEN PR I NT " gaSSmafl 
YOU HAVE CRASHED":GOTO3000 

2025 IF H< =0 AND V> = -5 AND CL=15 THENPRI 
NT"jaiN THE CORRECT PLACE " : GOTO2030 

2026 IF H< =0 AND V> = -5 THEN PRINT"i3IN T 
HE IaJRONG PLACE" 

2030 PR INT" gJDESCENT TIME "TI/60 " SECOND 
S . " 

2035 PR INT » gjrlFIflrmrlPlrmnp»»lrr RES5 SPACE 
TO TRY AGA IN" 

2037 P0KE54296,6 

2040 GETA$:IFA*<>" "THEN2040 

2050 GOTO30 

3003 REM EXFLOSION 

300 1 3C =54272 

3005 PCKESC+24,0 : F'OKESC+4,128 

3010 POKESC+5,79 :POKESC+6,00 :POKESC ,80 :P 

QKESC + 1,20:POKESC+24,15 :FOKESC+4,129 

3023 FORA = ITO 100: 1FFNC (.0 > <2024THENPOKEFN 

C':0> , DE < AAMD 1 :NEXT:GOTO2030 

3025 NEXT 
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3050 GOTO80 30 

8000 PRINT"J BM 0 0 N LAND 

E Rjassr 

8010 PRINT"*THIS IS AN UPMARKET REAL-TIM 
E LANDER" 

8080 PRINT"PROGRAM UH ICH GIVES YOU AN OP 
PORTUNITY" 

8030 PRINT"TO GRAPPLE WITH THE PROBLEMS 
LvJH I CH " 

8040 PRINT"FACE A SPACE-LAGGED CRIUSER C 
OMMANDER" 

8050 PRINT"RETURNING HOME AFTER A LONG H 
AUL. " 

8060 PRINT"THE OBJECT OF THE THE EXERCIS 
E IS TO " 

8070 PRINT"LAND YOUR CRAFT ON THE CHILLI 
NGLY SMALL" 

8080 PRINT"PAD AT THE BOTTOM OF THE SCRE 
EN. " 

8090 PRINT"PREC I SION IS THE NAME OF THE 
GA^E ,AS IF" 

8091 PRINT"YOU HIT THE PAD AT OVER -5,TH 
EN YOU AND" 

8098 PR I NT " YOUR CRELI ARE GONNERS <!!>." 
8093 PRINT"A NORD OF WARNING:" 

8 100 PRINT"IF YOU OVER-F IRE YOUR ROCKETS 
YOU ' LL GO" 

8110 PRINT"INTO SPACE - TRICKY TO CONTRO 
L LJHEN YOU" 

8180 PRINT"CAN 1 T SEE YOUR PLUMMETING SHI 
P. " 

8130 PRINT"MaPRESS SPACE TO CONTINUE" 
8140 GETA$:IFA$<>" "THEN8140 

SI50 PRINT-LJJSE THE FOLLOLIING GOMMANO KE 
YS : -SS" 


8 160 

PRINT" 

' + ' 

- MOVE 

LEFT 

8170 

PRINT" 

• — • 

- MOVE 

RIGHT 

8180 

PRINT" 

' Q ' 

- FIRE 

ENGINES 

8190 

PRINT" 

'A ' 

- STOP 

ENGINES 


8800 PRINT"HREMEMGER YOU HAVE A LIMITED 
AMOUNT OF“ 

8810 PRINT"FUEL.PRESS SPACE TO START DES 
CENT " 

8880 GETA$:IFAS<>" "THEN8880 
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8230 RETURN 
9000 H =2000 
9010 V = -20 
9020 M=1378 s MI=M 
9030 T =4000 
9040 FI=2 
9050 F =200 
9060 E =0 
9080 CL =20 
9090 Y = 8 

9100 REM SOUND HERE 

9 110 SC=54272 :FORA=0TO24:POKEA+SC,0 :NEXT 

9 120 POKESC +5,9!POKESC +6,240:PQKESC , 10:P 
OKESC + 1,10 :POKESC +4,129 

9200 PRINT"J" 

9205 FORA =55296T056295:POKEA,1 :NEXT 
9210 F0RX=1T024:PRINTTAB<FNR<38> ) "s|.B" :N 
EXT 

9220 TI$="000000" : RETURN 
10000 REM UDGS DONE HERE 

1000 1 PR I NT " kiSBBHHUhl OON^LANDER 

mMM " 

10002 PRINT" PLEASE UJA I T UH ILE YOUR SHIP 
IS BUILT." 

10010 P0KE52,48 :P0KE56, 48 :CLR 
10020 P0KE56334,PEEK <56334)AND254 
10030 POKE1,PEEK <1>AND251 

10040 FORI=0TO2048:POKEI+12288,PEEK<1+53 
248): NEXT 

10050 POKE1,PEEK <1)0R4:P0KE56334, PEEK < 56 
334 )OR1 

10060 DATA 255,60,34,195,66,60,36,66,231 
10065 P0KE53272,(PEEK(53272)AND240)+12 
10070 DATA 254,255,255,126,60,24,60,66,2 
31 

10080 DATA253,36,24,0,0,0,0,0,0 

10081 DATA250,2,2,18,9,146,98,73,140 

10082 DATA249,18,8,136,96,96,97,137,138 
10090 DATA252,66,66,36,36,24,0,0,0 
10100 DATA251,129,129,129,66,66,36,36,24 

10 110 DATA -1 

10120 READLs IFL = - 1THENRUN16 

10 130 FORA=0TO7:READCD:POKE12288+L*8+A , C 

D:NEXT:GOTO 10120 


203 




L'astronave degli extraterrestri vola a distanza ravvicinata dalla Terra 
cancellandone il suolo con la potenza del suo raggio distruttivo e la¬ 
sciando cadere uno sciame di proiettori mortali. Muovendovi rapida¬ 
mente su tutto il territorio, potete lanciare i vostri missili finché di¬ 
sponente di sufficiente energia. Non appena è necessario ricaricare la 
vostra arma, la vostra base cambia forma e siete costretti a combatte¬ 
re il pericoloso nemico senza difese. Ad aggiungere altre difficoltà, po¬ 
tete scegliere di combattere con un alieno invisibile, individuabile solo 
dallo sparo, e con pochissimi dati per posizionare il vostro missile. 

1 REM ********** ALIEN ********** 

2 REM * kJRITTEN FOR ZX SPECTRUM * 

3 REM * BY P.STANLEY. CONVERTEO * 

4 REM * TO COMMODORE 64 BY GEOFF* 

5 REM * AMABIL INO. USER DEFINED * 

6 REM * GRAPHIC CHARACTERS ARE * 

7 REM * # $ X & ' < ) * + * 

8 REM * TO RESTORE NORMAL SCREEN* 

3 REM * FROM DIRECT MODE TYPE * 

10 REM* 1 G0SUB5100 ' * 

11 REM*************************** 

12 P0KE52,64 :P0KE56,64 :CLR:GOSUB7000:PRI 
NT" J" ; :P0KE54296,15 

15 X = 0 s Y=0 : Z =20 s HS = 0 : S = 0 : SL)=40 :C=0:AS=16 
504 :CM=55416 :BA=37 

35 GOSUB7500:P0KE54278,128 :P0KE54277,240 
:P0KE54276,0 :P0KE54276,129 
37 P0KE54273,4 s P0KE54272,73 
40 GOSUB300:IFC=3G0T01000 
45 IFBMG0T065 

50 IFRND(0)>.97THENGOSUB400 
60 IFRND<0)<.08THENGOSUB600 
65 IFBH=1GOTO1000 
70 DZ=0SK=PEEK<KB> 

30 IFK=2510RK = 12THENDZ = -1 
90 IFK=2470RK=23THENDZ = 1 

100 IFF1=0AND <K =2390RK =60 >THENGOSUB900:G 
OTO40 

120 POKE17264+Z,32 
125 Z =Z +DZ! 1FZ <1THENZ = 1 
130 IFZ >39THENZ =39 
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140 POKE17264+2,BA:P0KE56176+2,8 
150 IFF1=0GOTO40 
155 POKEAS+L,32 

160 L=L-SUI+D2 : IFL<0THENF 1 =0 : GOTO50 : REM M 
ISSILE AT TOP OF SCREEN 

170 IFL=OSORL=OS+1THENGOSUB700: REM ALIEN 
HIT 

180 POKEAS+L,41:POKECM+L,1 :GOTO40 

299 REM ** MOVE ALIEN SHIP ** 

300 POKEAS+OS,32 

310 X=X+1:IFX=39THENX=0:POKEAS+OS+1,32:Y 
=Y+1: IFY=16THENY=0:C =C +1 : IFC =3THENRETURN 
320 OS =SUJ*Y+X 

330 POKEAS+OS,L1:POKEAS+OS+1,L2:P0KECM+0 
S,4 :POKECM+OS+1,4 
340 IFBM=0THENRETURN 

349 REM ** MOVE BOMBS ** 

350 FORA =1T04:POKEBS-A,32 :NEXT: IFBS>1726 
4THENBM=0:BA=37: RETURN 

360 BS =BS +40 :BC =BC +40 : FORA =1T04 

365 IFBS>17264THENIFPEEK <BS-A)=BATHENBH = 

1 :A=4:GOTO380 

370 POKEBS-A,40 :POKEBC-A,5 
380 NEXTA:RETURN 

399 REM ** SET UP ALIEN BOMBS ** 

400 BM=1 :BS =AS +OS +SW+3:BC=CM+OS+SUJ+3:BA = 
39 SFORA=1T04:POKEBS-A,40 :POKEBC-A,5 :NEXT 

410 RETURN 

599 REM ** ALIEN LASER BLAST ** 

600 P0KE54279,172 :POKE54280,57 « P0KE54284 
,0 :P0KE54285,249sP0KE54283,33 

640 LP *AS +0S : LC=CM + OS : FORY1 = YTO18 : LP=LP+ 
SUI: LC*LC+SUI 

645 IFY1 = 18ANDX*2THENY1*20 :NEXTY1 :BH=1 :G 

OTO660: REM HIT BASE 

650 POKELP,106* POKELC,1 :NEXTY1 

660 LP = AS + OS : FORY 1 = YTO 18 : LP = LP+SUJ: POKELP 

,32:NEXTY1 

670 P0KE54283,32 :P0KE54283,0 :P0KE54285,0 
:P0KE54284,0 : RETURN 

699 REM ** ALIEN SHIP HIT! ** 

700 POKEAS+L,38 :F1=0 :S=S+20-Y: IFS>HSTHEN 
HS=S 

710 G0SUB7510 :B1=2 :B2*6 :HI=5 : LO*75 :GOSUB 
2000:RETURN 
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899 REM ** SET UP YOUR MISSILE ** 

900 IFBA = 39THENRE TURN 

910 L =17264 + 2-40-AS:POKEA3+L , 4 1 :POKECM+L 


,1 :F1 = 1: RETURN 

999 REM ** ITS THE END OF YOUR BASE! ** 

1000 P0KE54276,123 :POKE54276,8 :P0KE54276 
,0:POKE54277,0:POKE54£78 ,0: 

1010 IFC3=3THENC3=0:GOSUB7500:PRINT"flHMN 

ELL BONE !YOU SURVIVED!":GOTO 1060 

1050 POKE 17264+2 ,42 : POKE 17264 + 2 * 1 ,43 :B 1 = 


1s B£ = 0 :HI=4: LO =184 

1055 P0KE56178+2,1:P0KE56176+2+1,1: GOSUB 

2000 


1070 GETQ*: 1FQ*='* "GOTO 1070 
1080 IFQ* ="N"THENG0SUB5100 : END 
1090 IFQ$<>"Y"GOTO1070 

LIEN7“ 

1110 GETQ$: IFQ*=""GOTO 1 1 10 

1 120 IFQ$ = “ N"THENL 1 =32 : LE =32 : GOTO 1 150 

1130 IFQ$< >"Y"GOTO 1110 

1140 L1=35:L2=36 

1150 PR I NT » M——— 

g*' : X=0 : Y = 0 : 3=0 : BA=37 : 2 =£0 : C=0 : F 1 =0 

1 160 BH = 0:G0T035 

1999 REM ** LIGHTS AND SOUND! ** 

2000 P0KE54279,LO:POKE54280 ,HI :P0KE54284 
, 16:P0KE54285,249 

2010 P0KE54283,129 

2020 FORA=1TO30:POKE53280,B1:P0KE53281 ,B 

2 :POKE53280,B2:P0KE53281,B1:NEXT 
2025 FORA =1TO500:NEXT 

2030 POKE53280,0 :P0KE53281 ,0 

£040 P0KE54283,128 :P0KE54283,8 :P0KE54283 

,0:P0KE54285,0 :P0KE54284,0 : RETURN 

4999 REM ** MOVE CHARS. TO NEW LOCATION 
** 

5000 P0KE56334,PEEK <56334 >AN0254:POKE1,P 
EEK(1)AND251 :REM K/B & I/O OFF 

5010 FORA =0TO127:FORA1*0TO7 

5020 POKE£0480+A*8+A1,PEEK<53248+A*8+A1 ) 

:NEXTA1,A 
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5030 P0KE1,PEEK <1)0R4:P0KE56334,PEEK<563 
34>OR 1 : RETURN:REM K/B & I/O ON 

5049 REM ** USER DEFINED CHARS 35-43 ** 

5050 F0RA=35T043:BT=0: FORA 1=0TO7:READB « B 
T=BT+B 

5055 POKE20480+<8*A)+A1,B:NEXTA1 :READB 
5080 IFB< >BTTHENCH=A.*A= 132: NEXTA :GOTO600 
0 

5065 NEXTA 

5069 REM ** SUIITCH IN USER CHARS. ** 

5070 P0KE648,64 :P0KE56576,<PEEK<56576>AN 
D252 >0R2: REM POINT VIC AND SCR EDIT 
5075 P0KE53272,<PEEK<53272>AND 15>: REM PO 
INT VIC AT SCREEN 

5077 PQKE53272,<PEEK<53272)AND240>0R4: RE 
M SET CHAR POINTER TO 20480 
5080 RETURN 

5099 REM ** RESTORE NORMAL CHAR. SET *» 

5100 P0KE643,4 :P0KE56576,<PEEK<56576>AND 
252)0R3:P0KE53272,21 :PRINT"J" ; 

5 110 P0KE54296,0 : RETURN 

5999 REM ** USE CHECKSUM TO DEBUG DATA S 
TATEMENTS ** 

6000 PR INT "CHECKSUM ERROR IN CHAR "CH.’ST 
OP 

6999 REM ** INSTRUCTIONS AND INITIALISAT 
I ON ** 

7000 POKE53280,0:POKE53£81 ,0 : PR INT 

7010 PRINT" 

7020 PRINT" 
f\ Il " 

7030 PRINT" 

Il\ Il " 

7040 PRINT" 

Il \ Il " 

7050 PRINT" 

Il \ Il " 

7060 PRINT" 

Il \ Il " 

7070 PRINT" 

Il \ll " 

7080 PRINT" 


l\ 

Il \ 

Il \ 

Il \ 

Il-\ 

Il \ 


II 

II 

II 

II 

II 

II 


II 

II 

II 

II 

II 

IL 


'-i _ 
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7090 PRINT" 


£111 J9ll£ll L -0)0 YOU UJANT JO 


7100 PRINT"- 

YSTICKS <Y/N>B- 

7110 GETQ$:IFG$=""G0T07110 
7 1£0 IFQ$ ="Y"THENKB=56321:GOTO7180 
7130 I FQ$< >"N"G0T07110 

OVEMENT KEYS -":KB=197 

7150 PRINT" 3-EFT.3 Z ■" 

7 160 PR I NT " H LJRIGHT. 3 X ■ 


7170 PRINT"M flF IRE.3 SPA 

CE ■" 

7180 PR INT"M II DO YOU 14ANT A VISIBLE ALI 
EN?" 

7190 GETQ$:IFO$=""G0T07190 

7200 IFQ* =“Y"THENL1=35 :L2 = 36:GOTO7230 

7210 IFQ$<>"N"G0T07190 

7220 L1=32 :L2 =L 1 

7230 PR INT"□ 0DKAY. . .L1AIT! 


7240 GOSUB5000 
7250 PRINT" 

IT' " 

7260 GQSUB5050 
7270 PR INT" k JHHH! 
—REMEMBER- 


OSORRY ABOUT THE LIA 


J fjlU UL' 


iKMassauuuuu- 


’2B0 PR INTTAB < 10 ) "BTTOU CAM ONLY FIRE 


N YOUR 


BASE IS LX], NOT L1HEN IT3 t 


UH E 

1 ! ! 


7290 PRINTTAB<10>"SFRESS A KEY TO GO!" 
7300 GETQ$:IFQ^=""GOTO7300 
7310 RETURN 

7493 REM ** SET UP SCREEN ** 

7500 P R I NT " k JgMM S IIIII I IIII I I IIIII i- - t i i i 1 - r 


i i i i i i i i i i i i i i i 


7505 PRINT"] 


75 10 PRTNT" aWWB SCORE - " ; S; TAB <20 ) "H 
IGH SCORE - ";HS:RETURN 

10000 DATA0,0,60,255,234,63,15,3,630 
10010 DATA0,0,60,255,87,252,240,192,1086 
10020 0ATA8,8,8,93,119,97,93,0,426 
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10030 DATA 1,68,136,16,160,0,4,34,469 
10040 DATA 129,255,165,36,60,60,126,255,1 
036 

10050 DATA0,130,193,108,124,56,16,16,648 
10060 DATA8,8 ,8,8,8 ,28,0,0 ,63 
10070 DATAI,9,5,35,27,69,35,255,436 
10080 DATA 128,136,146,164,200,178,196,25 
5,1403 
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Punto e croce 


Il classico gioco, questa volta giocato contro il computer. Nella nostra 
versione però il computer può essere battuto. 


10 REM ************************* 

15 REM * NOUGHTS & CROSSES * 

16 REM * BY MICHAEL BEWS * 

17 REM * CONVERTED * 

20 REM * BY DAVID GRISTWOOD * 

25 REM * FOR THE * 

30 REM * COMMODORE 64 * 

35 REM ************************* 

40 REM 

45 GRID=1024+4+8*40 : CD=55296-1024 
50 BLANK*=" 

II 

55 DEF FN PO OO =GRID+(INT< <X- 1)/3)* 160) + 
< <X-< INTC <X-1)/3)*3))*4) 

60 FOR T=1 TO 9: G(T)=0: NEXT T 
65 FINISH=0:TURNS=0 

70 CL(1)=1:CLC2)=9:CL<3)=3:CL<4>=7 
90 GOTO 1600 : REM * MAIN PROGRAM * 

100 REM * PRINT SCREEN * 

105 REM 

120 POKE 53281,5SP0KE 53280,5 

160 PRINT-JSI BUELCOME TO NOUGHTS & 

CROSSES SI" 

170 PR INTTAB < 1 1 ) "k.BY DAVID GRISTWOOD" 

180 PRINT!PRINT:PRINT"3" 

200 Gl*=“-1-1-":G2*=" | |" 

210 FOR T=1 TO 9 STEP 3 
220 : IF T>6 THEN Gl*="" 

230 s FOR U =1 TO 3 
240 : :PRINTTAB < 7) G2* 

260 :NEXT U 

280 :PRINT TAB < 7) Gl* 

300 NEXT T 

305 PR I NT 11 m 11 T 113 " ; TAB < 24 ) "BgYnLI ARE BX" 
310 PR INT "SI" * TAB <26 ) "5!I AM a|0" 

315 P R I NT " S&35S9 " 
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320 PR I NT : PR I NT : PR I NT TAB < 1 £ > " BfTHE SCORE 
SO FAR":PRINT 
330 PRINT BLANKS 

340 PRINT TAB<5)"CME:";ME;"GAMES" 

360 PRINT TAB <23 VQYOU : " ; YOU; "GAMES " 

370 FOR T=1 TO 9 

380 :C=FN PO<T):POKE C,48+T:POKEC+ CD,2 
390 NEXT T 
335 RETURN 

400 REM * YOU TO GO * 

410 REM 

420 PR I NT " glMPlPlfl SPRINT BLANKS 

440 PRINT"Qi YOUR TURN TO GO. WHICH SQUA 

RE (1-9) ?" 

460 FOR T=1 TO 10 :GETA$:NEXT T 

480 GET A$:IF A$="" THEN 480 

500 VA=VAL<A$>:IF VA<1 OR VA>9 THEN 480 

520 IF G <VA > < >0 THEN 480 

540 G < VA) = 1 :T = FN PO<VA) 

560 POKE T,36 :POKE T+CD,0 
530 REM * CHECK FOR WIN * 

620 FOR T=0 TO 2 

640 :IF G<T#3+1>=1 AND G(T*3+2)=1 AND G< 
T *3+3 ) = 1 THEN FINISH=1 

660 : IF G <1 +T> = 1 AND G<4+T>=1 AND G<7+T) 
= 1 THEN FINISH =1 
680 NEXT T 

700 IF G <1) = 1 AND G <5) = 1 AND G<9) = 1 THEN 
FINISH =1 

720 IF G(3 ) = 1 AND G<5) = 1 AND G<7) = 1 THEN 
FINISH =1 

740 IF FINISH =1 THEN YOU = YOU+1 : RESULTA" 
YOU WIN" 

790 RETURN 

300 REM * MY TURN * 

820 PR INT" ggHEBl" : PR INT BLANK$ 

330 PRINT"Ca MY TURN TO GO." 

840 FOR T=1 TO 700:NEXT T 
850 GOTO 1200 

860 REM * CHECK FOR BLOCK OR WIN * 

370 MOVED =0 :L =0 
900 FOR T = 0 TO 2 

910 :IF G(T*3+1)+G(T*3+2)+G(T*3+3)=C THE 
N L =1 :GOSUB 970 
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920 :IF G<1+T>+G<4+T>+G<7+T>=C THEN L=2: 
GOSUB 970 
930 NEXT T 

940 IF G<1)+G<5)+G(9)=C THEN L=3:G0SUB 9 
70 

950 IF G(3>+G<5>+G<7)=C THEN L=4:G0SUB 9 
70 

960 RETURN 

970 IF MOVED >0 THEN RETURN 
990 ON L GOTO 1000,1020,1040,1100 
1000 FOR U =T*3 +1 TO T*3+3: IF G(U)=0 THEN 
MOVED =U 

1010 NEXT U:RETURN 

1020 FOR U=T+1 TO T + 9 STEP 3:IF G<U)=0 T 

HEN MOVED =U 

1030 NEXT U:RETURN 

1040 IF G(1)=0 THEN MOVED=1 : RETURN 
1060 IF G(9 ) =0 THEN MOVED = 9 : RETURN 
1080 M0VED=5:RETURN 

1100 IF G(3)=0 THEN MOVED=3 : RETURN 
1120 IF G (7 ) =0 THEN mVED =7 : RETURN 
1140 MOVED = 5: RETURN 
1200 C = -2 :GOSUB 860:REM * WIN * 

1220 IF MOVED>0 THEN ME=ME + 1 :RESULT*="I 

WIN":FINISH=1:GOTO 1450 

1250 C =2 :GOSUB 860 : REM * BLOCK * 

1280 IF MOVED>0 THEN 1450 
1290 REM * GET CORNER ? * 

1320 FOR T=1 TO 2 

1330 : IF G <CL <T))=0 AND G<CL<3-T>>=1 THE 
N MOVED =CL < T > 

1340 : IF G < CL < T + 2))=0 AND G<CL<5-T)) = 1 T 
HEN MOVED =CL(T+2) 

1345 NEXT TsIF MOVED>0 THEN 1450 
1350 FOR T*1 TO 4 

1355 s IF G < CL < T))*0 THEN MOVED=CL<T> 

1360 NEXT T 

1370 IF MOVED >0 THEN 1450 
1380 REM * ANY SQUARE * 

1400 FOR T=1 TO 9 

1410 : IF G <T)=0 THEN MOVED = T 

1420 NEXT T 

1450 REM * END MY MOVE * 
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1460 T = FN PO(MOVED>:POKE T,87:P0KE T + CD, 
1 

1480 G < MOVED)=- 1 ! RETURN 
1500 REM * END OF GAME * 

1510 pr i nt" «marna " sprint blank* 

1520 PRINT-CH RESULTA; " . PLAY AGAI 

N < Y/N) ?" 

1530 FOR T=1 TO 10:GET A$:NEXT T 

1540 GET A$:IF A$<>"Y" AND A$<>"N" THEN1 

540 

1550 IF A*="Y" THEN 20 
1560 PRINT"Lfc.THANK YOU": END 
1600 REM ** MAIN PROGRAM ** 

1605 REM 

1610 GOSUB 100 

1650 UT =INT(RND(TI)*2 +1) 

1660 ON UT GOSUB 400,800 
1670 IF FINISH=1 THEN 1500 

1680 TURNS=TURNS+1 : IF TURNS=9 THEN RESUL 
T*="A DRAU N ! GOTO 1500 
1690 UT = 3-UT:FOR T=1 TO 1 :NEXT T 

1700 GOTO 1660 
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Ecco un gioco per i bambini, studiato per misurarne la capacità di os¬ 
servazione e di memoria. Il programma genera le figure di dieci og¬ 
getti, due per ogni oggetto e distribuite a caso, e le presenta sullo 
schermo per alcuni secondi, ogni volta che il bambino sceglie uno dei 
quadrati in cui è suddiviso lo schermo, compare una figura cui egli de¬ 
ve abbinare la figura corrispondente identificando il quadrato dietro il 
quale essa si nasconde con maggiore probabilità. Se le due figure scel¬ 
te non formano una coppia, vengono nascoste entrambe e il punteg¬ 
gio rimane invariato. 


10 

REM 



15 

REM 

********************* 

20 

REM 

* 

PAIRS BY * 

21 

REM 

* 

MICHAEL BELIS * 

22 

REM 

* 

CONVERTED BY * 

25 

REM 

* 

DAVID GR ISTLIOOD * 

30 

REM 

* 

FOR THE * 

35 

REM 

* 

COMMODORE 64 * 

40 

REM 

********************* 

45 

REM 



50 

SCREEN 

=51200 :CHAR = 49152 :UDG =128 :S =0 

60 

TRIES= 

0 :GRID=SCREEN+9*40+6: CO = 55296- 

CREEN 



70 

BLANK* 

= Il 

II 


100 

POKE 

53281,1:POKE 53280,1 

1 10 

PR I NT 

" J" 


120 

IF PEEK <2)=2 THEN 250 : REM * SKIP TH 


S SECTION IF RE-RUNNING PROGRAM * 

140 POKE 56576,4:REM * SET BANK * 

150 POKE 53272,32:REM * SCREEN + CHAR SE 
T * 

160 POKE 648,200:REM * SET BASIC * 

170 PRINT"JfflMa PLEASE WA IT FOR TUO MIN 
UTES ■ 

180 FOR T = 0 TO 2047 

180 POKE 56333,127:P0KE 1,51 : REM * REVEA 
L CHAR SET * 

200 X=PEEK(5324S+T> 

210 POKE 1,55 :POKE 56333,129 : REM * RESTO 
RE I/O * 
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220 POKE 49152+T,X 
230 NEXT T 
240 POKE 2,2 

230 REM * SCREEN NOW AT 51200-32223 * 

2G0 REM * CHAR SET NOUI AT 49152-51 199 * 
270 REM 

280 REM * READ U.D.G. * 

290 FOR T=0 TO 9 
300 s FOR U»0 TO 7 
310 : « FOR W-0 TO 8 

320 i : » READ DxPOKE CHAR+UDG*8+T*72+W*8+U 
,D 

330 « «NEXT W 
340 s NEXT U 
330 NEXT T 

380 REM * DATA FOR U.D.G. * 

400 REM 1 SHIP 

420 DATA 0,0,0,0,0,8,15,223, 224,0,0,0,3 
,128,8,0, 0,0,0,0,0,3,128,8 
440 DATA 0,0,0,0,0,0,15,255, 8,0,0,0,0,0 
,0,15, 255,8,0,0,0,0,0,0 

460 DATA 63,255,232,0,0,0,0,0, 8,63,233, 
248,0,0,0,0, 0,8,31,233,240,0,0,0 
480 REM 2 HELICOPTER 

300 DATA 0,0,0,0,7,128,0,235, 252,0,0,0, 

0,12,192,0, 0,0,0,0,0,96,24,96 

320 DATA 0,0,0,0,0,0,127,240, 112,0,0,0, 

0,0,0,111, 233,224,0,0,0,0,127,240 

540 DATA 3,233,192,0,0,0,0,2, 0,0,127,12 

8 , 0 , 00 , 0 , 2 , 0 , 0 , 6 , 4 , 0 , 0,0 

360 REM 3 BUS 

580 DATA0,0,0,0,0,0,60,1, 224,0,0,0,63,2 
33,252,24, 0,192,0,0,0,36,16,84 
600 DATA 0,0,0,0,0,0,36,16, 84,0,0,0,0,0 
,0,36, 16,84,0,0,0,0,0,0 

620 DATA 63,235,214,0,0,0,0,0, 0,63,255, 
214,0.0,0,0, 0,0,127 ,253,2 14,0,0,0 
640 REM 4 RAILWAY ENGINE 

660 DATA 0,0,0,12,3,128,7,131, 192,0,0,0 

,12,195,128,3, 1,128,0,0,0,31,255,128 

680 DATA 0,0,0,0,0,0,31,255, 240,0,0,0,0 
,0,0,31, 255,240,0,0,0,0,3,240 
700 DATA 31,255,240,0,0,0,0,2, 128,13,25 

5,240 .0,0,0,12, 2,128,31 ,255,240,0,0,0 
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720 REM 5 TREE 

740 DATA3,13,0,127,253,232,0,60,0,3,255, 
192,63,233,188,0 

750 DATA 60,0,13,255,240,55,247,248 
760 DATA 0,60,0,15,255,246,31,63,248,0,6 
0,0,126,255,126,31 

770 DATA 60,240,0,60,0,127,255,240 
780 DATA 24,60,48,0,60,0,255,255, 252,0, 
60,0,0,60,0,127, 223,252,0,60,0,0,60,0 
800 REM 6 CAR 

820 DATA 0,0,0,0,127,0,12,0, 24,0,0,0,0, 
132,128,0, 0,0,0,0,0,1,4,64 
840 DATA 0,0,0,0,0,0,2,4 , 32,0,0,0,0,0,0 
,127, 255,255,0,0,0,0,0,0 

860 DATA 63,255,255,0,0,0,0,0, 0,127,255 
,254,0,0,0,0, 0,0,30,0,60,0,0,0 
880 REM 7 GOOSE 

900 DATA 0,0,0,0,120,0,1,0, 0,0,0,0,0,12 

4,0,3, 0,0,0,0,0,0,124,240 

920 DATA 0,0,0,0,0,0,96,125, 216,0,0,0,1 

,224,0,127, 255,252,0,0,0,0,248,0 

940 DATA 127,255,253,0,0,0,0,248, 0,15,2 

55,128,0,0,0,0, 248,0,7,255,0,0,0,0 

960 REM 8 TAKK 

930 DATA 0,0,0,64,3,0,51,51, 48,0,0,0,64 
,255,0,63, 255,240,0,0,0,65,255,128 
1000 DATA 12,204,192,0,0,0,67,0, 255,0,0 
,0,64,0,0,79, 253,192,0,0,0,64,0,0 
1020 DATA 253,233,240,0,0,0,64,0, 0,255, 
255,248,0,0,0,64, 0,0,127,255,252,0,0,0 
1040 REM 9 CLOCK 

1060 DATA 0,0,0,9,64,144,8,66, 16,0,0,0, 

8,32,16,8, 24,16,0,0,0,8,16,16 
1080 DATA 8,0,16,13,235,240,10,15, 80,15 
,233,240,8,0,16,8, 0,16,6,0,0,8,24,16 
1100 DATA 8,0,16,0,0,0,8,66, 16,9,0,144, 

0 ,0,0,8, 0,16,8,0,16,0,0,0 
1120 REM 10 APPLE 

1140 DATA 0,0,0,1,235,128,3,233, 192,0,0 

,0,3,233,192,1, 233,128,0,192,0,3,139,19 
2 

1160 DATA 0,233,0,0,32,0,7,253, 224,0,60 
,0,0,16,0,7, 233,224,0,0,0,0,16,0 
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1180 DATA 7,255,824,0,0,0,0,60, 0,7,255, 
224,0,0,0,0, 255,0,3,255,192,0,0,0 
1200 FOR T = 51192 TO 51199:P0KE T,255:NEX 
T 

1210 DIM COLOUR <11) 

1220 FOR T=1 TO 11 : READ COLOUR<T>:NEXT T 
1240 REM * DATA FOR COLOUR OF OBJECTS * 
1260 DATA 11,5,2,8,9,7,4,13,14,10,14 
1300 DIM A < 5,4) 

1320 REM * SHUFFLE CARD3 * 

1340 FOR T =1 TO 5 

1360 :FOR U=1 TO 4 

1380 : : A(T,U > =0 

1400 :NEXT U 

1420 NEXT T 

1440 FOR T=1 TO 10 

1460 :FOR U=1 TO 2 

1480 s : X1 = INT<RND <TI)*5 + 1) 

1490 ! :Y1 = INT <RND <TI>*4+1) 

1500 : : IF A<X1,Y1>=0 THEN A<X1,Y1>=T:GOT 
O 1540 

1520 ! : GOTO 1480 
1540 :NEXT U 
1560 NEXT T 

1990 GOTO 9000:REM * GOTO MA IN PROGRAM * 
2000 REM * PRINT SCREEN * 

2020 PR I NT * ICTURE PAIRS BY MICHAEL BE 
WS " 

2040 GOSUB 2900 :TYPE = 11 
2080 FOR T1=1 TO 5 
2100 :FOR T2 =1 TO 4 
2120 ::GOSUB 3000 
2140 :NEXT T2 
2160 NEXT TI 
2200 PRINT" aMMmraM " 

2220 PRINTTAB <7 )"A B C D 

ESSH" 

2240 FOR T=1 TO 4 
2260 :PRINTTAB<3T 

2270 IF T<4 THEN PRINT:PRINT:PRINT 

2280 NEXT T 

2890 PRINT" H" : RETURN 

2900 REM * PRINT SCORE * 

2920 PRINT"BM" ; BL.ANK* 
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2940 PRINT H CD RIGHT: H ;S 

2960 PR I NT "□" ; TAB <25 ) "UIRONG : ";TRIES 

2980 RETURN 

3000 REM * PRINT CARD 'TYPE' AT T1,T2 * 
3020 PX = <TI-1)*6 s PY = < T2-1)*4 
3060 LOC=GRID+PX+40+PY 

3080 SYMBOL=128+<<TYPE-1 >*9 ) : IF TYPE=11 

THEN SYMBOL=255 

3090 IF TYPE =0 THEN SYMB0L=32 

3100 FOR C =0 TO 2 

3120 s FOR D =0 TO 2 

3140 : :POKE LOC+C*40+D,SYMBOL 

3160 ì i POKE LOC +C*40+D+CD,COLOUR < TYPE) 

3180 : : IF TYPEOll AND TYPEO0 THEN SYMB 

OL=SYMBOL +1 

3200 :NEXT D 

3220 NEXT C 

3990 RETURN 

4000 REM * DISPLAY CARDS INITIALLY * 

4020 PR I NT " MgM " SPRINT"^ HOUJ LONG DO YOU 
LIISH TO SEE THE CARDS" 

4040 PRINT" <0 TO 9 SECONDS) ?" 

4060 FOR T=1 TO 10:GET A$:NEXT T 

4080 GET A$:IF A$= " " THEN 4080 

4030 IFA$<"0" OR A$>"9" THEN 4080 

4 100 TD =1000*VAL <A$):PRINT" «aBM " ; BLANK*: 

PRINTBLANK* 

4110 IF TD =0 THEN RETURN 
4120 FOR T1=1 TO 5 
4140 :FOR T2=l TO 4 

4160 J : TYPE = A < T 1 , T2 ) ’• GOSUB 3000:REM * DI 
SPLAY * 

4180 :NEXT T2 
4200 NEXT TI 

4240 FOR T = 1 TO TD:NEXT: REM * DELAY * 
4260 TYPE =11s REM * BLANK * 

4280 FOR T1=1 TO 5 
4300 !FOR T2 =1 TO 4 
4320 ::GOSUB 3000 
4340 :NEXT T2 
4360 NEXT TI 
4990 RETURN 

5000 REM * INPUT GUESS * 

5020 PRINT-gEH" 
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5040 PRI NT "SJ UIHERE IS THE FIRST PICTURE 

•I 

5060 GOSUB 6000 
5100 T1=G1 :T2 =G2 
5120 TYPE=A<T1,T2>:GOSUB 3000 
5140 PRINT"M*M" 

5160 PRINT"H WHERE IS THE SECOND PICTUR 
E " 

5170 GOSUB 6000 

5180 IF G1=T1 AND G2=T2 THEN 5140 
5130 REM * COMPARE PICTURES * 

5200 L1=T1:L2 = T2: TI=G1 :T2=G2 
5220 TYPE=A(T1,T2>:GOSUB 3000 
5230 FOR T=1 TO 1000:NEXT T 
5240 IF A(L1,L2)=A(G1,G2) THEN 5500 
5260 REM ♦ LÌRONG GUESS * 

5280 TYPE=11 :GOSUB 3000 :T1=L1 :T2=L2:GOSU 
B3000 

5300 TRIES=TRIES+1 

5320 PRINT"agBE| ■ " ; TAB ( 1 4 ) " Ul R 0 N G !" 
5330 FOR T=1 TO 1500:NEXT 
5340 RETURN 

5500 REM * RIGHT GUESS * 

5520 TYPE =0 :GOSUB 3000 : A<T1,T2>=0 :T1=L1 : 
T2=L2:GOSUB3000:A<T1,T2)=0 
5560 S=S+1 

5570 PR INT " apanw ";TAB<15)"R I G H T" 
5580 FOR T=1 TO 1500:NEXT 
5600 RETURN 

6000 REM * CHECK VAL ID GUESS * 

6020 FOR T =1 TO 10:GET A*:KEXT T 
6040 PRINT" ITS LETTER <A TO E) ?" 

6060 GET A*:IF A$="" THEN 6060 
6080 IF A $ <" A " OR A$>"E" THEN 6060 
6100 G1=ASC<A*>-64 

6140 PRINT" ITS NUMBER <1 TO 4) ?" 

6160 GET A$:IF A$="" THEN 6160 
6180 IF A$<"1" OR A$>"4" THEN 6160 
6200 G2=VAL<A*> 

6240 PRINT" aBtaW "SPRINT BLANK^:PRINT BLAN 

6260 IF A (G 1 ,G2 ) =0 THEN PR INT "CIX3" : GOTO 
6000 

6280 PRINT"gMH":PRINT BLANK$ 
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6400 RETURN 

9000 REM * MA IN PROGRAM * 

9020 GOSUB 2000 
9040 GOSUB 4000 
9060 GOSUB 5000 
9030 GOSUB 2900 
9100 IF S<10 THEN 9060 

9120 PRINT"assai THANK YOU VERY MUCH FOR 
THE GAME-BYE." 
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Siete alla guida di un piccolo aereo che vola parallelo al lato superiore 
dello schermo. Dal basso, è in costruzione un grande muro destinato a 
riempire l’intera area di gioco. Obiettivo del gioco è di lasciar cadere 
dall’aereo degli uomini che riescano ad introdursi attraverso delle fes¬ 
sure del muro sul fondo dello schermo. Ogni volta che un uomo tocca 
una parte qualsiasi del muro perde la vita. Per creare delle fessure suf¬ 
ficienti per l’ingresso degli uomini e per evitare che il muro occupi 
tutto lo schermo, avete la possibilità di lasciar cadere delle bombe che 
fanno saltare parti di muro rallentandone la crescita. 


1 REM ***64 VERSION*** 

E REM***BRICKLflYER*** 

5 POKE 53280 , E :POKE 53E81,3 :PRINT"iJH’’ 

6 GOSUB 4000 

7 POKE 52,48 :POKE 56,4S:CLR 
3 GOSUB 180 

9 D*="j 

10 LET H3 =0 


15 PR I NT " -WmimUH i I : " ; HS 
20 LET X=X+F 

30 1F X =0 OR X = 37 THEN DU=.04 :HI = 14 :L0=2 

39 :GOSUB 2000:LET F = -F 

imiH ri— " i r i— “Il " 

40 PR INT "SSH" ; TAB < X > J “ £ " 

50 GET Q$: IF Q$="Z" THEN IF T<>1 THEN LE 
T T=1 :LET K=X+l:LET L=2 

55 IF Q$= ,, M" HND X>3 HND X<35 THEN IF Z< 
>1 THEN LET Z=l:LET Q=X+l:LET 1=2 

60 IF T=1 THEN PRINTLEFT*<D$,L+1);TAB<K) 
" B :L=L + 1:PRINTLEFT*(D$,L+1);TAB(K>" I " 

61 IF T=1 THEN DU=.002 :HI=8 : LO=97 :G0S46 
2000 

62 IF T=1 THEN IF PEEK<<<L+1)*40)+K+1024 
)< >32 THEN GOSUB 140 

65 IF Z=1 THEN PRINTLEFT*<D$,I+1>;TAB<Q) 

" "J LET I = I+1:PRINTLEFT*(D$,I+1);TABCQ)" 

t" 

66 IFZ = 1THENDU=.002 :HI=6 s L0 = 71 :GOSUB 200 
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0 : IFPEEK < < < I + 1 ) *40 ) +Q+1024 ) < >32THENG0SUB 
160 

70 IF L =21 THEN PRINTLEFT$(D$,L+1> ; TAB<K 
)" ":LET T=0 

75 IF 1=21 THEN S=S+B*2 :DU=. 1 :HI=26 : LO= 1 
56:GOSUB2000:PRINTLEFT$<D$,1 + 1)* TAB < Q >" 

11 

76 IF 1=21 THEN LET I=0:LET Z=0 
110 LET A=A+C 

1 15 PRINTLEFT*(D$,B+1 ) ; TAB ( A ) ; M I D*< “BBI 
gj" ,RND < 1 >*5+1 , 1 >; " C3" 

120 IF A < 3 OR A >35 THEN LET C = -C:LET B =B 
- 1 

125 IF B = 3 THEN 1000 
130 GOTO 20 

140 PRINTLEFT*<D$,L+1>;TAB<K)" ":PRINTLE 

FT$(D$,L+2>;TAB<K-2);" ':LET T=0 

141 IF L<20 THEN PRINTLEFT*<D$,L+3);TAB< 
K - 1 > " 

150 RETURN 

160 PR INTLEFT$(D$, 1 + 1 ) ; TAB (Q ) ; "11*3" : LET 
L I VES=LIVES-1 :DU =. 1 :H I =2 : LO=90 :GOSUB 200 
0 

161 DU=. 1 s HI=3 : LO=35 :GOSUB2000:Z =0 :PRINT 
LEFT*(D*,1 + 1);TAB < Q)" ";LEFT*<D$,I+2);TA 
B<Q-1>" 

162 IF LIVES=0 THEN 1000 
166 RETURN 

180 DATA 0 , 126 , 126,126,126,126,126,126 

181 DATA 0,24,1 18,219,255,110,24,0 

182 DATA 231,126,60,60,60,60,60,24 

183 DATA 28,28,8,62,8,8,20,34 

190 PRINT"B" ! 

191 POKE 56334,PEEK<56334>AND254 

192 POKE 1,PEEK <1)AND 25 1 

193 FOR 1=0 TO 215 s POKE I + 12288,PEEK<I ^ 
3248)s NEXT 

194 FOR 1=216 TO 247:READ A:POKE 1+12280 
,A :NEXT 

195 FOR 1=248 TO 51 1 :POKE I + 12288 ,PEEK<I 
+ 53248 >:NEXT 

196 POKE 1 ,PEEK <1)0R4 

197 POKE 56334,PEEK<56334>OR 1 
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199 LET A=35:LET B=22:LET C=-.6:LET T=0: 
LET L=1s LET 2=0:LET I = l:LET X=0:LET F = 1 

200 LET S =0 : LET LIVES=10 : RETURN 
1000 IF LIVES=0 THEN PRINTTAB<30>"0" 

1010 FOR 0=0 TO 255 STEP 4 

1020 DU = .01s HI=0 :L0=123 : GOSUB 2000 
1025 NEXT 0 
1030 PPTNrr 
R GAME?" 

1035 IF S >HS THEN LET HS=S 

1040 GET A*:IF A$<>”Y" AND A$<>"N" THEN 

1040 

1050 IF A$="Y" THEN GOSUB 199 :PRINT"U" ; : 
FOR V = 1 TO 1000: NEXT'.GOTO 15 
10G0 END 

2000 POKE 54273,HI :POKE 54272 ,L0:POKE 54 
276,33 

2010 FOR DELAY=1 TO 500*DU:NEXT 
2020 POKE 54276,32 
2030 RETURN 

4000 POKE 53272,21 :PRINT" kJ Ma 
BRICK LAYER" 

4010 PRINT" " 

4011 PRINT"THE OBJECT IS TO DROP HUMANOI 
DS FROM THE"; 

4012 PRINT"SPACECRAFT AT THE TOP OF THE 
SCREEN." 

40 13 PRINT"MAS THE GAME PROGRESSES,A Li AL 
L WILL BE" 

4014 PRINT"BE BUILT STARTING FROM THE SO 
TTOM.HOLES" 

4015 PRINT"CAN BE MADE IN THIS BY RELEAS 
ING A BOMB . " ,* 

4016 PRINT"YOU HAVE 10 LIVES,AND EACH TI 
ME A" 

4017 PRINT"HUMANOID HITS THE WALL,A LIFE 
WILL BE LOST." 

4018 PR INT"MB 2.DROPS BOM 

BS" 

4019 PRINT" M.RELEASES HUMANOID 

N 

4020 PRINT 1 Uggia fi PRESS ANY KEY TO 3 

TART " 

4021 GET A$:IF A$<>"" 


THEN 4021 




4022 

4025 

4030 

4040 

4050 

4060 
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GET A$:IF A*»"" THEN 4022 
PRINT”J"; SPOKE 53272,26 
6=54272 

FOR XX=S TO S +24 :POKE XX,0:NEXT XX 
POKE S+5,9:POKE S+6,0:POKE 6+24,15 
RETURN 
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Drag Racer 


Ecco un'altra simulazione di una corsa. L'obiettivo del gioco è di com¬ 
pletare il quarto di miglio della pista nel più breve tempo possibile, 
presupponendo che abbiate quattro marce e dobbiate determinare il 
momento ottimale per il passaggio da una marcia all'altra. Se cambiate 
troppo presto, il numero di giri si abbassa così tanto da farvi perdere 
tempo prezioso, mentre, aspettando troppo, rischiate di imballare il 
motore. Attenzione: la difficoltà del gioco aumenta progressivamente 
ad ogni vostro successo e il momento giusto per cambiare marcia di¬ 
venta sempre più difficile da giudicare. 

0 REM***64 VERSION*** 

1 REM DRAG RACER BY R.ERSKINE 1983 MOD1F 
IED I.FROST 
5 GOSUB 4000 
10 GOSUB 9000 
15 GOSUB 9150 
20 G = 1 

100 GETI*sI=VAL<I*> 

120 IF1>0ANDI<5THEhfi3=1 

125 IFT<3THENRPM=FNA<X)«GOTO 140 

130 RPM=FNB < X ) 

140 IFRND(I)><RPM-6000)/1000THEN160 

150 GOTO3000 

160 OS=NS 

170 OP=NP 

180 TQ=FNC <X > 

190 TR*= 17 
200 NS=FND < X ) 

210 NP=Ft>E<X) 

240 T=T +1 

250 FORJ=0TO50«NEXT:REM DELAY 

280 REM * STRING FUNCTIONS FOR REV CO.+S 

PEEDO DISPLAY 

285 PRINTDN*; "HSfflH"; l ' tt»»l l ';LEFT*( CLEFTS 
< BA$ ,NS/4 +3 )+BB$),32) 

330 IFRPM<1500THEN3500 

340 PRINTDN*; "UH" ; LEFT*< <LEFT*(BA$,RPM 
/150-10)+BB«),32) 

399 REM MOVE SPRITE 

400 CO =CO +T *2 « IFCO >255THENCF =CF +1«CO=CO- 
255 
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410 POKEV,CCi :POKEV + 16 , CF 
500 IFNP<1320THEN100 
£000 T = FNH(X) 

£005 IFBT = 0THENBT = T 

£0 10 IFT <BTTHENBT = T 

£030 FRI NT " 9TI ME ";T;"|| SECONDS 

£040 PR INT"BEST TIME: ,, ;BT;”|| SECONDS" 

£050 PRINT"CJ*1AX IMUM SPEED : ";NS; ,, || MPH " 

£055 FORX =1TO£000:NEXT 

£060 PRINT"PRESS ANY KEY TO RESTART" 

£070 GETA$:IFA$=""THENE070 

£030 6R =GR +. 1 : IFGR>4.1THENGR=4.11 

£095 GOSUB9005 

£036 G0SUB9310 

£100 GOTO£0 

3000 POKE£040,193:P0K.EV+£3,1 : REM EXPLOSI 
ON SPRITE 

3010 FORI = 1TO£0:PRINT"ENGINE BLOUISCJ" : FOR 
J =0TO50:NEXT 

30E0 PR INT "ANGINE BLOUSHD" : FOR J =0TO50 : N 
EXT 

3030 NEXTI 
3040 GOTO£055 

3500 PR INT "ANGINE STALLS -LOU1 REVSWH" 
3510 GOTO£055 
4000 PRINT"J" 

4010 PR INT"KUIUUIU DRAG RACER S8" 

4030 PRINT”IN THIS DRAG RACING SIMULATIO 
N YOU MUST 

403£ PRINT"TRY TO COVER THE QUARTER MILE 
IN THE 

4034 PRINT"SHORTEST POSSIBLE TIME. THE 
ONLY 

4036 PRINT"CONTROLS YOU NEED ARE THE GEA 
RS WHICH 

4038 PRINT"MUST BE CHANGED AT THE OPTIMU 
M MOMENT 

4040 PRINT"gFlT THE START YOU ARE IN FIRS 
T GEAR AND 

404£ PR INT " YOU MUST UJATCH THE RPM COUNTE 
R AND 

4044 PRINT "DEC IDE LiHEN TO CHANGE INTO SE 
CONO . 

4046 PRINT"AT OVER 6000 RPM THERE 13 A H 
IGH 
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4048 PR INT" PROBABILITY OF THE ENGINE BLO 
UJING . 

4050 PRINT"gHITH EACH SUCCEEDING ATTEMPT 
THE GEAR 

4052 PRINT"END RATIO IS INCREASED SLIGHT 
LY UIHICH 

4054 PRINT"MAKES THE GAME PROGRESS IVELY 
MORE DIFFICULT 

4060 PR I NT " H TRY NOT TO CHANGE GEAR TOO 
LATE OR TOO 

4062 PRINT"EARLY. THE GEAR KEYS ARE 1,2 
,3 AND 4. GOOD LUCK. 

4070 FORX =1TO2000:NEXT 

4030 PRINT"SPRESS ANY KEY TO START" 

4090 GETA$:IFA*=""THEN4090 
4095 RETURN 

3000 PRINT”9" :FORX =0TO7 

80 10 FRINT" SO- 


8020 NEXT 
8060 RETURN 

3999 REM INITIAL 12ATION 
9000 D I MG< 4 > 

9005 POKE53280,5 :P0KE53281 ,7:PRINT"J": PO 
KE53281,2 

9006 dn$= ;BA$="iaaBBffli 


9007 BBS=" i II I II I I I I I I I I I I I I I I I I I I I I I I I I 

MIN" 

90 10 G < 1 ) =4 

9020 G < 2 > =2.5 

9030 G < 3 ) = 1.5 

9040 G < 4) = 1 

9050 T=0:NP=0:NS=0 

9070 MPH =0 

9030 RPM=0 

9115 PRINT" 20 30 40 50 

60 ■ 

9125 PR I NT » WWilIMM PH " 

9130 PRINT" 0 25 50 75 

100 

9140 GOSUB8000 
9145 RETURN 


Drag Racer 227 


9150 DEFFNA<X>=4200*<G<G>/G<1>> 

9160 DEFFNB <X )=NS*GR*G (G > *CN/CI 

9170 DEFFNC <X) = <C1*RPMt3) + <C2*RPMt2) + <C3 

*RPM) 

9180 DEFFND (X > =0S +(TQ/TR > 

9190 DEFFNE < X > =0P +NS* <5280/60t2 ) 

9220 DEFFNH < X)=T + <1320-OP>/<NP-OP>- 1 

9250 CN=63360 

9260 CI =4523.89342 1 

9270 Cl=-1.8953E-9 

9280 C2= 1.02 157E-5 

3290 C3=.015752 

9300 BT = 0 :GR =3 

9310 CO =0 :CF =0 

9315 RESTORE 

9320 FORX=0TO62: READD:POKE12288+X,D:NEXT 
9330 FORX =0TO62:READD:POKE12352+X,D:NEXT 
9340 V=53248:POKE2040,192 :POKEV+39,6 :POK 
EV,CO:POKEV+l,70 :POKEV+16 ,CF 
9350 POKEV+29,1 :POKEV+2 1,1 = POKEV+23,0 
9360 RETURN 

49999 REM ** DATA FOR SPRITES 

50000 DATA0,0,0,0,0,0,0,0,0 

50001 DATA0,0,0,30,0 ,0,63,0,0 

50002 DATA 127,128,0,127,192,0,255,192,0 

50003 0ATA241,224,0,238,224,0,238,224,0 

50004 DATA223,96,0,238,224,0,238,229,64 

50005 DATA238,242,160,241,243,224,127,21 
9,223 

50006 DATA 127,223,238,63,19 1,251,31,0,14 

62010 DATA 136,16,34,68,56,68,102,56,204 

62011 DATA55,57,216,59,187,134,31,137,24 
0 

62012 DATA207,255,230,127,255,252,63,255 
,248 

62013 DATA7,255,192,255,255,254,7,255,19 
2 

62014 DATA63,255,248,127,255,252,207,255 
,230 

620 15 DATA3 1,187,240,59,187,184,55,57,21 
6 

620 16 DATA 102,56,204,68,56,68,136,16,34 
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La battaglia 
delle Falklands 

È tempo di parlare ancora di Falklands. Un gruppo di navi nemiche 
compaiono a caso all'orizzonte e tocca a voi affondarne il maggior nu¬ 
mero possibile lanciando missili con il tasto zero. Appena sotto la linea 
dell'orizzonte è riportato un bersaglio mobile. Le navi nemiche sono di 
tre dimensioni e più è piccolo il bersaglio e maggiore è il numero di 
punti guadagnati. Ricordate che il nemico non sta ad aspettarvi senza 
difendersi: di tanto in tanto infatti il sistema elettronico di difesa rie¬ 
sce a confondere il vostro missile e a deviarne la corsa. 

1 REM EXOCET <5 ROBERT ERSKINE 1983 
8 REM MODIFIED FOR 64 BT I.FROST '83 
3 P0KE46,80:P0KE48,80sPOKE50,80 s REM PROT 
ECT NEW CHARACTER GEN 
5 GOSUB9000 
10 GOSUB4000 
15 GOSUB1000 
£0 GOSUB1100 
30 HS =0 

100 FORX=1T0LEN(S$) 

105 GOSUB570 

1 10 PRINTLEFT*<DN$,14 >; : IFX< 39THENPRINTL 
eft$<ac*,39-x:>; 

120 IFX<39THENPRINTMI D$(S$,1,X> SGOTO140 
130 PRINTMID$<S$,X-38,39) ; 

140 IFX>LEN<S$>THENPRINTLEFT$(Q*,X-LEN<S 

>; 

150 REM GET FIRE STATUS 
160 GETA$ 

170 GOSUB570 

195 IFFLAG=1THEN220 

200 IFA$< >"0"THEN240 

209 REM PO =POSITION SIGHTS AT FIRE 

210 PO=< CUP-16)+<255ANDHI=1)>/8+13*40+10 
£4 :SU=PO+40*9:FL = 1:R = 70 

211 EX=EX-1 

£15 P0KES0+4,128:P0KES0+4,129 
£20 POKESU,93:POKESU+40,102 :SU=SU-40 
230 POKESQ+1 ,RsR=R-8 : REM MISSILE SOUND 
£35 IFSU =F0THENG0SUB£55 
£40 G03UB578 

£43 I FFl, =OTMENFOR I =0TO 10 : NEXT 
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1100 3*= = 20 :HI=0:EX = 15 

1110 G$C1) = "* ": REM SHIFT A 

1120 G$ < 2 ) = " I — "s REM - BC 

1130 G$<3)=" ":REM - DEF 

1140 FORX=4TO10:G$(X>=" "sNEXT 

1 150 Q*=" 

II 

1 160 FORX =1TD50 

1170 S$=S*+G$(RND(X)* 10+1> 

1180 NEXT:P$=S$ 

1190 SC=0:POKEW+21,1 : RETURN 

2000 GOTO2000 

3000 POKELI + 2 1 , 0 : PR I NT " Li" :P0KE53281 ,6:P0K 
E53280,0:POKES +4,128 

3010 PR INT 11 B BJ3AME OVER" 

3020 PRINT"BKISaEffl TOUR SCORE LIAS; SC 
3030 IFSC >HSTHENHS = SC 
3040 PR I NT 11 H THE HIGH SCORE IS";HS 
3050 PR INT " ANY KEY TO 

RESTART" 

3060 LIAIT197,64:GETA$: IFft$=" "THEN3060 
3080 GOSUB1000 :GOSUB1100 : GOTO 100 
4000 POKE53280,6 : POKE5328 1 ,7 J PR INT'‘wflBi 
EX0CETJ3" 

4010 PRI NT"H THE OBJECT OF THIS GAME I 
S TO SINK 

4020 PRI NT" THE ENEMY SHIPS UITH EXOCET 
MISSILES 

4030 PRINT" AS THEY CROSS THE HORIZON 
4040 PRINT" HE = MOVE SIGHT LEFT 

4050 PRINT" gJK = MOVE SIGHT RIGHT 

4060 PRINT" H0 = FIRE MISSILE 

4070 PRINT" gHIT ON-- SCORES 10 

408O PRINT" IHIT ON |- SCORES 20 

4090 PRINT" S-IIT ON * SCORES 30 

4 100 PR INT " fiSISElE} PRESS ANY KEY TO START" 
4110 GETA*:IFA$=""THEN4110 
4120 RETURN 

9000 PR I NT " LE ASE LIA IT ONE MINUTE" 

9009 REM READ CHAR GEN 

9010 POKE56334,PEEK(56334)AN0254 
9020 POKE 1 ,PEEK < 1 )AN025 1 

9030 FORI=0TO128:FORJ=0TO7 

9040 POKE10240+1*8+J, PEEK(53248+1*8 + J ) 

905O NEXTJ,I 
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3060 PQKE1,PEEK(1 >0R4:POKE56334, PEEK <563 
34 >0R1 

9070 P0KE53272,CPEEK<53272)AND240)OR 10 
3079 REM READ IN NEW CHARS 

9080 FORI=65 TO70 :FORJ=0TO7: READD:POKE1 
0240+I*3+J, Ds NEXTJ,I 

9090 DATA0,0,0,0,0,0,16,255,0,0,0,0,1,39 

,255,127,0,0,0,0,128,230,255,254 

9100 DATA0,0,0,0,1,255,127,63,0,24,60,63 

,255,255,255,255,0,0,0,0 

9110 DATA 192,255,254,252 

9120 30=54272:W=53248 

9130 FORI=0TO62: READD:POKE12288+I,D:NEXT 
9140 FORI=0TO62:READD:POKE12352+I,D:NEXT 
3149 REM W=VIDEO, 80=S0UN0 
9 150 POKEW,16 :POKEW+1 ,228 :POKEW+28,2 :POK 
EW + 3,130 :POKEW+23,2 :POKEW+29,2 
9160 POKEW+37,2 :POKEW + 38,7 :POKEW+39,0 : PO 
KE2040,192:POKE2041,193 

9170 P0KES0+5,15:POKESO+12,11:P0KES0+24, 
15 :POKESO +8,15 
9180 RETURN 

9299 REM 3IGHT SPRITE 

9300 DATA0,24,0,0,24,0,0,24,0,0,24,0,0,2 
4,0,240,24,15,240,24,15 

93 10 DATA 192,24,3,192,24,3,192,24,3,192, 

24,3,192,24,3,192,24,3,192,24,3 

9320 DATA 134,24,67,194,24,67,194,24,67,1 

94,24,67,194,24,67,194,24,67 

9330 DATA255,255,255 

9399 REM BOOM SPRITE 

9400 DATA 136,16,34,68,56,68,102,56,204 
9410 DATA55,57,216,59,187,184,31,187,240 
9420 DATA207,255,230,127,255,252,63,255, 
248 

9430 DATA7,255,192,255,255,254,7,255,192 
9450 DATA63,255,248,127,255,252,207,255, 
230 

9460 DATA31,187,240,59,187,184,55,57,2T6 
9470 DATA 102,56,204,68,56,68,136,16,34 
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Non è sempre facile capire come si comportano i numeri in base di¬ 
versa da 10, ma questo programma può facilitare le cose. È infatti in 
grado di eseguire conversioni fra i numeri binari, esadecimali, decimali 
e romani e qualsiasi altro sistema numerico (su basi diverse) che si vo¬ 
glia inventare. 


10 REM ************************ 
£0 REM * NUMBERS * 
30 REM * ORIGINAL BY M. BEUIS * 
40 REM * * 
50 REM * CBM 64 VERSION BY * 
60 REM * GEOFF A., WITH FULL * 
70 REM * HEX <> DEC & BINODEC* 
80 REM * CQNVERSION * 
90 REM ************************ 


100 :P0KE5E,64 :P0KE56,64 :CLR:POKE53£80,4 

: P0K.E53E8 1 ,6 

110 DIMKC10),C<£5),A$<10),RN$<8),RN<8),H 
E$<16,£) 

1£0 DATA 1000,500,100,50,10,5,1 

130 DATA0,0000,1,0001,£,0010,3,0011,4,01 

00,5,0101,6,0110,7,0111 

140 DATA8,1000,9,1001,A, 1010,B,1011,C, 11 
00,D,1101 , E , 1 1 10,F, 1111 

150 RN$="MDCLXVI": FORA =1T07:RN$ ( A)=MID$( 
RN$,A,1):READRN<A):NEXT 

160 FORA=0TO15:READHE*<A,1),HE$(A,£):NEX 
T 

£00 PR 1NTCHR$< 14)" *J"TAB<4) " LM* I C/. 

... ♦ m “\» *mm" 

£10 PRINT" i HIS PROGRAM EX AM INES A FEL1 
OF THE” 

££0 PRINT"MANY COUNTING SYSTEMS, AND ENA 
BLES YOU" 

£30 PRINT-TO INVESTIGATE SOME OF YOUR OD 
N!WM" 

£40 PR INTTAB < 10 ) T.EASE UiA I T. : 

GOSUB5000:PRINTCHR$<14£)) 

£50 POKE53E80,5 :P0KE53E81,6:PRINT" k 13”TAB 
(15)" SI* MENU *<WOT" 
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260 PRINTTAB<5)"UH 
270 PRINTTABC5)"3 £ 
£80 PRINTTAB<5)"3 3 
230 PRINTTAB < 5)"fl 4 
MH" 

300 PRINTTAB< 5 )"3 5 

H 

310 PRINTTAB( 5 > " S 6 
AM ■" 

320 PR1NTTAB(10) " 


a 

ROMAN 

NUMBERSH" 

■ 

DEC IMAL 

SYSTEMS" 

■ 

BINARY 

SYSTEMS" 

■ 

HEXADECIMAL SYSTE 

a 

INVENT 

YOUR OIaIN ! S 

■ 

a EXIT 

FROM PROGR 

□a 

PRESS 1 

-6 TO go a 


330 GETQ$:IFQSK"1“ORQ*>"6“GOTO330 

340 ONVAL<Q$)GOTO400,800,1200,1600,2200, 

4000 

350 G0SUB5100 : END 

398 REM *** ROMAN NUMBERS *** 

400 POKE53280,5:POKE53281 ,2 :PRINT" il" TAB< 
10)"na* ROMAN NUMBERS *BgKT 
410 PRINT B a IN THE ROMAN SYSTEM 

B" ; 

420 PRINT”a 

■ H • 

_ / 

430 PRINT"a M=1000 D =500 C=100 L=50 X=10 
V =5 1 = 1 B" 

440 PRINT“a A LOWER VALUE LETTER IMMEDIA 
TELY " 

450 PRINT"PRECEDING A LETTER OF HIGHER V 
ALUE IS" 

460 PRINT"SUBTRACTED INSTEAD OF BEING AD 
DED SO" 

470 PRINT“THAT, FOR EXAMPLE, LX=60 AND X 
L=40H" 

480 PR I NT " ENTER A COMPLETE ROMAN NUMBER'* 

:PRINT"<E.G. MCMLXXXIV)" 

490 PRINT"OR PRESS JFETURNB FOR MENU" 

495 PRINT" ■■■■■■■■■■■■■I*Il 

IH" ; : INPUTT* 

500 IFT$ ="*"GOTO250 

5 10 FORA =1TOLEN< T$ >:FORA 1 = 1T07:C<A>=C<A) 
+ < RN(A 1>AND<MID*<T*,A, 1 >=RN$<A1))) 

520 NEXTA1 

530 I FC < A > <1THENPRINTT$" IS NOT A ROMAN 
NO . ITI T D " : A =LEN< T$ ):NEXTA:GOTO480 
540 NEXTA:T = 0: FORA=1TOLEN<T*): IFC <A+ 1 ) >C 
(A)THENC < A) = -C < A) 


254 Numeri 


550 T=T+C(A> s C ( A ) =0 s NEXTA : PR I NT" 

II 

555 PRINT"9 □" :PRINTTS" = 

T 

560 PR i nt ■■ ! : r,nTnapiFi 

799 REM ** DECIMAL SYSTEM ** 

800 POKE53E80,6 s P0KE532S 1 ,7 : PR INT 

<6)"M* DECIMAL SYSTEM (BASE 10) ' 

810 PR I NT " M ORIGIN ■ TEN FINGERS AND THL 1 
MBS MAKEM" 

820 PRINT"IT CONVENIENT TO COUNT IN GROL 
PS OF TEN!" 

830 PR 1 NT " MIAI .1.. COUNT ING SYSTEMS NEED EN 
OUGH SYMBOLSMTO REPRESENT THE COUNT"; 

840 PRINT" FROM ZERO UP TO MONE LESS TH 
AN THE BASE NUMBER." 

850 PRINT" HTHIS MEANS THAT SYMBOLS 0 1 2 
3 4 5 6 7 MS 9 ARE NEEDED FOR MDECIMAL" 
860 PRINT"MTHERE IS NO SEPARATE SYMBOL F 
OR THE BASEH(TEN IN THIS CASE). 

870 GOSUB5200:PRINT"J3"TAB(6)“M* DECIMAL 
SYSTEM (BASE 10) *M1" 

880 PRINT"MTHE BASE IS REPRESENTED BY 1 
0 TO INDI- MCATE 1 COMPLETE GROUP OF " ; 
890 PRINT" TEN PLUS 0 REM-MA INDER. '1 0 

0' THEREFORE MEANS TENM” 

900 PRINT"GROUPS OF TEN, OR 10 X 10, OR 
10 1 <10 TOMTHE POWER OF TWO). M" 

910 PR I NT " 10^, 10 1 101 10- 10“ 10- 10- 10 

I 10* 10 i 

920 PRINT" 1 

0 0M" 

930 PR INT "ISSI NOTE : ■ ANY NUMBER RAISED TO 
THE POWER OFfi 1 <EG 10*) IS ITSELF.fi" 

940 PRINT"ANO ANY NUMBER RAISED TO THE P 
OWER 0 IS MALWAYS 1 (EG 10^ = 1) 

950 GOSUB5200:PRINT" k ia"TAB(6) "A* DEC IMAL 
SYSTEM (BASE 10) *Hg»T 
960 PRINT"«USING THIS CONVENTION, PELATI 

NG ASCEND- MING POWERS OF THE BASE") 

970 PRINT'IKALUE, YOU CAN CREATE A CO 
UNTING SYSTEM TO ANY BASE YOUM WISH!" 

980 GOSUB5190!GOTO250 

1190 REM ** BINARY <-> DEC IMAL ** 
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1191 REM ** THIS SECTION IS VERY ** 

1192 REM ** USEFUL FOR BUDDING ** 

1193 REM ** GRAPHICS PROGRAMMERS!** 

1194 REM ** CONVERSION USES HEXA- * * 

1195 REM ** DEC I MAL AS AN INTER ** 

1196 REM ** -MEDIATE STEP 

1200 POKE53280,8 :P0KE53281,10 :PRINT"kJR"T 
AB<7)"!* BINARY SYSTEM (BASE 2) *SHH" 

1210 PRINT"3 HI! I CONSIST OF A VAST N 
UMBER OF 

1220 PR INT"SUIITCHES. EACH SUJITCH CAN BE 

bona or BOFFa. 

1230 PR INT" (NELL , I HAVE A FEUJ CONFUSED 
ONES THAT 

1240 PRINT"GET STUCK HALF MAY,BUT IGNORE 
THOSE ! ! > 

1250 PRINT" FROM THE NOTES ON THE DEC IM 
AL SYSTEM, " J 

1260 PRINT"YOU CAN SEE THAT BINARY NEEDS 
ONLY TUO SYMBOLS, '0' AND '1'"; 

1270 PRINT", TO COUNT UP TO ANYNUMBER. U 
SING MY 'OFF 1 STATES TO REPRE- SENT"; 

1280 PRINT" '0' AND 'ON 1 TO REPRESENT '1 
I CAN HOLD A DECIMAL NUMBER USING"; 
1290 PRINT" A CHAIN OF SIMPLE SWITCHES. 

B" 

1300 PRINT" SQI CAN ALSO:H" 

1310 PRINT"CONVERT DECIMAL TO BINARY 3<P 
RESS 1 >B 

1320 PRINT"H OR BINARY TO DECIMAL a< 

PRESS 2 >B" 

1330 PRINT"H OR flRETURNB TO MENU!" 

1340 GETQ*:IFQS=""GOTO1340 

1350 IFO«=CHR^<13)GOTO250 

1360 IFQ^="1"GOTO 1500 

1370 IFQ$< >"2"GOTO 1340 

1379 REM ** BINARY TO DECIMAL ** 

1380 PRINT " .irlKlrtPF NTER A BINARY NO . < < 17 

DIGITS >H" 

1390 PRINT"DO NOT LEAVE ANY SPACES! <'RE 

TURN' FOR MENU)" 

1395 INPUT" ■■■■■■■■■■■■■I 

filli ; lt 

1400 IFL$="*"GOTO250 
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1405 IFLEN(L$)>16G0T01380 

1410 FORA=1T0LEN(L$):IFMID*(L$,A,1)<"0"O 
RMID*(LS>,A „ 1 > >" 1 "GOTO 15G0 
1420 NEXTA 

1425 JL=LEN<L$): IFJL/4=INT<JL/4)GOTO 1440 
1430 L*="0"+L$:GOTO 1425 

1440 HE$="": FORA = ITOJLSTEP4: FORAI = ITO 15 
1450 IFMID$(L$,A,4)=HE*<A1,2)THENHE$=HE$ 
+HE$(A1,1) 

1460 NEXTA1 , A 

1470 IFLEN(HE$X4THENHE$="0 " +HE$:GOTO 147 
0 

1480 N*=L$:T*=HE$:BIN=1:GOSUB2080:G0SUB5 
130:GOTO 1380 

1500 PRINT" fcJHBEBENTER A DEC IMAL NO. < < 6 
5535)H" 

1510 PRINT"<'RETURN* FOR MENU>“ 

1520 I NPUT " ■■■■■■■■■■I*llll" ; L 

$:IFL$="*"GOTO250 

1525 FORA =1TOLEN< L$ >:JL$=MID$(L$,A,1) 
1527 IFJL$<"0"ORJL$>"9"THENA=LEN<L$>:NEX 
TA:GOTO 1560 

1530 NEXTA:L=VAL(L*>: IFL<0ORL >65535G0T01 
700 

1535 T$=L$:HE$="" :BN$="":BIN=1:GOSUB1830 
1540 FORA=1T04: FORA 1=0TO15 
1550 IFMID$(HE$,A,1>=HE$<A1,1)THENBN*=BN 
*+HE$(Al,2) + " ": A 1 = 15 

1555 NEXTA1 ,A SPRINT "H ,, T*" = "BN*:G0SUB51 
90:GOTO 1500 

1560 PRINT"a I DON 1 T UhOERSTAND ■'"L$:L$ 
=Q$:G0SUB5190 :ONVAL <L$>GOTO 1500,1380 
1570 GOTO250 

1597 REM ** HEX <-> DEC I MAL ** 

1598 REM ** NOTE USEFUL ROUTINES ** 

1599 REM ** FOR MACHINE CODE MANIACS ** 

1600 POKE53280,7 :P0KE53281 ,6:PRINT"SLi 

3* HEXADECI MAL NUMBERS (BASE 16) *SHHT 
1610 PRINT" aCOMPUTERS WORK BEST IN 

BINARYB 

1620 PRINT"a 

1630 PRINT" aUNFORTUNATELY HUMANS DO 

NOTI!■" 
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1640 PR I NT " BTTH IS COMPUTER USES 8 BIT ' WO 
RDS 1 C BYTES ) “ 

1650 PRINT"EACH BYTE CAN HOLD AN INTEGER 
NUMBER IN THE RANGE 0 - 255“ 

1660 PRINT U <I.E.11111111 IN BINARY.) 

1670 PRINT"HA HEX. NUMBER 16 EQUIVALENT 
TO A FOUR BIT BINARY NO." 

1680 PRINT"E.G. 1111 = F 0111 =7" 

1630 PRINT" I 4- I 

1700 PR INT"TH IS IS AN EASY UJAY OF REPRES 
ENTING BINARY NUMBERS FOR YOU & ME ! " 

1710 PRINT"E . G . 010000001111 = 40F = 10 

39" 

1720 PRINT" | 4- 

4 :GOSUB5200 

172 1 PRINT-'LIB 3* HEXADECI MAL NUMBERS < 
BASE 16) *®SS" 

1722 PRINT" DECIMAL HEXADECIMALS" 

1723 FORA=0TO15:PRINTTAB<6>;A;TAB<22)HE* 
(A,1): NEXT:GOSUB5200 

1730 PR INT" JBSEDO YOU LIA NT TO CONVERT:H" 
1740 PRINTTABC10)"DECIMAL TO HEX (PRESS 

aiH>a- 

1750 PRINTTAB <7)"OR HEX TO DEC IMAL (PRES 
S a2S>?" 

1755 GETQ$: IFQ*<"1 "ORQ$>"2"GOTO 1755 
1760 IFQ*="2"GOTO2000 

1770 PR INT " kJHSENTER A DECI MAL NUMBER <0 
- 65535)" 

1780 PR I NT " OR RETURN* FOR MENU" 

1790 INPUT" *IMT ;T* 

1800 IFT$="*"GOTO250 

1810 L=VAL(TS): IFL >655350RL<0THENPRINT"O 
UT OF RANGE. TRY AGAIN!":GOTO 1790 
1820 PRINTT4" = ";:BIN=0 

1829 REM ** DEC - HEX CONVERT ROUTINE 

1830 L =L/4096 : FORA = 1T04 : L’/. = L : L$ = CHR$ < 48 + 
L*/.-<LX>9)*7) : IFBIN=0THENPRINTL$; 

1840 IFBIN=1THENHE$=HE$+L$ 

1850 L= 16* (L-LY.) : NEXT: IF6 IN = 0THENF > R I NT : G 
0SUB5190 : GOTO 1770 
1860 RETURN 

2000 PR INT "»JflgENTER A HEX NUMBER (E.G. 1 

A5D ) 
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£'0 10 PR INT"OR RETURN* FOR MENU" 

£0£0 INPUT" 111111*1111" ' T$ 

£030 IFT$="*"GOTO250 

£040 FORA=iTOLEN<T*>:T1$=MID$<T$,A,1> 
£0?0 IFT 1 $> = "0 "ANDT1$< = " 9 ’’GOTO£070 
£060 IFT13K"A"0RT1S>"F"THENPRINTTS" IS N 
OT A HEX NO. ", Afj&ÉNCT*) :NEXT: GOTO 1790 
£070 NEXTA:N$=T$:BIN=0 
£079 REM HEX - DEC CONVERT ROUTINE 
£080 L=0:FORA=1TOLEN<T$>:LX=ASC<T$>:LX = L 
y.-AQ* <LM>64 > *7 : T$ = MIDS<T$ ,£ ) 

£030 L=16*L+L^:NEXT:PRINTN^" = ";L:IFBIN 
=0THENGOSUB5190 :GOTO£000 
£100 RETURN 

£199 REM ** VARI BASE CALCULATOR #* 

££00 POKE53280,13:P0KE53£81,1 1 :PBlNlT»;iB" 
TAB<7>"a* VARIBASE CALCULATOR *SBE1" 

££10 PRINT"YOU MAY CHOOSE ANY BASE BETWE 
EM £ AND £4" 

£2£0 PRINT"<DECIMAL>. NE SHALL USE LETTE 
RS 'A' TO 13' N‘ FOR THE EXTRA SYMBOLS " ; 
££30 PRINT" UP TO ONE LESSgJTHAN THE CHOS 
EN BASE VALUE.JJS" 

££40 INPUT"CENTER YOUR BASE <£ - £4) 

111*1111'" ; L4?: I FL$= " * "GOTO£50 

£250 B = VAL (L$) : IFB<£ORB >24THENPR I NT "m" ; 

:GOTO££40 

££55 BP=4-<B<10)*4 

££60 PRI NT" LEI" TAB<7>"fl* VARI BASE CALCULA 
TOR *HHH" 

2270 PR INTTAB < 14 ) "a BASE ||" ; B 

2280 PR INT" JSH YOUR BASE DEC IM 

A L 29IHIIIIE QUIVALENT 

£290 PR INT"M"TAB <4 ) ; B; "Il TAB <24 > " 1 " 

2300 F0RA=1T09:PRI NTTAB < 4 ) ; B ; "U ,, CHR$<96 + 
A > ; TAB < £3 > ; I NT < B t A > : NEXTA 
2310 G0SUB5190 

2315 =RINT ,, k ja ,, TAB<7) "a* VARI BASE CALCULA 
TOR *BSS" 

£320 PRINT"aiNPU7 A DECIMAL NUMBER FOR C 
ONVERSION TOIJ3ASE " ; B; " < < ||" ; B tBP; " ) " 

2330 INPUT"H<OR RETURN* FOR MENU 
; L$: IFL$= " * "GOTO250 
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£340 JL=LEN(L*>:F0RA=1T0JL:JL$=MID$(L$,A 

, 1 ) 

£350 IFJL*<"0"ORJL$>"9"G0T0£315 

£360 L=VAL<L$):IFL>BtBPORL<0GOTO£315 

£365 HE$ =""!NA=L:FORA =1T08 

£370 I=INT(NA/B):HE$=CHR*(48+<NA-B*I) + (7 

AND < NA -B * I > >9 > > +HE* 

£380 IFI>=BTHENNA=I :NEXTA 

£383 HE$=CHR$<48 + 1 + ( 7ANDI>9)>+HE$:A=8 

£385 NEXT 

£400 PR I NT" glO" / L$; " gl*' = ”HE$" <BASE";B 
; " >H" 

£410 IFB>9THENFORA=10TOB-1 :PRINTCHR$(55 + 
A >" ="; A; " "; :G0T0£415 

£4 1 £ GOTOE430 

£415 IFA=140RA=19THENPRINT"2J" ; 

£4£0 NEXTA 

£430 PRINT i G0T0E310 

4000 G0SUB5100 : END 

4339 REM ** SET UP USER DEFINED CHARS 

5000 P0KE56334,PEEK(56334 >AND£54:PGKE1,P 

EEK(1)AND£51 : REM K/B & I/O OFF 

5005 CS =£048G : C- 1 =53£48 : C£= 10£4 

5018 FORA = 0TO63: FORA 1=0TO7:0S = A*8 +A1 

50£8 POKECS + OS -PEEK(C I+OS):POKECS+OS+C£, 

F'EEK. ( C 1 +0S +C£ > : NEXTA 1 , A 

5030 POK.E 1 , PEEK ( 1 >0R4 : P0KE56334 , PEEK <563 
34>ORI:REM K/B & I/O ON 
5040 P0KE53£7£,<FEEK <53£7£ >AND£40)0R4 
5045 PR I NT ; 

5050 FORA =65T074: FORA 1=0TO7:READB 
5055 P0KECS+(8*A) + A 1,B!NEXTA1 
5060 NEXTA 

5070 P0KE648,64 :P0KE56576,(PEEK<56576)AN 
D£5£)0R£ 

5075 P0KE53£7£,(PEEK(53£7£ >AND 15 > 

5080 RETURN 

5099 REM ** RETURN TO NORMAL CHAR. SET 
5 100 P0KE648,4 :P0KE56576,<PEEK(56576)AND 
£5£)0R3 

51 10 P0KE53£7£ ,£ 1 : PR INT "Li" ) : PCKE54£96,0 : 
RETURN 

5 190 PR INTTAB<5) "BF’RESS RETURN» TO CONT 
INUE":G0T05£10 
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5200 PRINTTfiB(5)"HBPRESS «RETURN* FOR NE 
XT PAGED" 

5210 GETQ$: IFQ$< >CHR*<13)GOTO5210 
5220 RETURN 

10000 DATA32,96,32,32,248,0,0,0,240,16,3 
2,64,240,0,0,0 

10010 D0TA240,16,112,16,240,0,0,0,128,12 
8,160,240,32,0,0,0 

10020 DATA240,128,240,16,240,0,0,0,192,1 
28,240,144,240,0,0,0 

10030 DATA240,16,32,64,128,0,0,0,240,144 
,96,144,240,0,0,0 

10040 DATA96,144,112,16,240,0,0,0,96,144 
,144,144,96,0,0,0 
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È molto probabile che abbiate accumulato una bella dose di aggressi¬ 
vità nel battere i programmi fin qui proposti. Perciò che dire di scari¬ 
carla con questo gioco che, senza falsa modestia, può essere conside¬ 
rato un vero piccolo capolavoro e offre l’opportunità di incontrare i 
piu grandi campioni di box senza alzarvi dalla sedia? 
il programma offre una veduta a volo d'uccello di un ring e la possibi¬ 
lità di combattere per tre raund con un avversario a scelta. Per fare 
punti occorre riuscire ad ottenere un contatto con la testa e, se la 
strategia adottata è efficace, il programma prevede persino il KO. 


1 REM***] BOXER *** 

E REM *** 64 VERSION *** 

5 S1=0 :S2=S1 :V=53248:POKEV,0 :POKEV+1,0:P 
OKEV+2,0 :POKEV+3,0 

8 GQSUB7000:POKE53280,10:POKE53281,10 
10 GOSUB2500 

15 ROUND=1:PRINTCHR$<8>;:POKEV+21,3 
20 GOSUB9500 

62 PRINT ,, aSHHMHBfflimH ,, TAB<33>R0 

63 POKESO + 15,37:POKESO +4,21 

70 X = 32 :Y=60:TM=3:TS=1 :F=££4:G=2£0:E=0:P 
OKE2040,195 :POKE2041,192:POKESO+4,20 
100 POKEV,X :POKEV +1,Y:POKEV+2,F:POKEV+3, 
G 

130 TS = TS-1 : IFTS = 0THENTM=TM-1 :TS = 60 : IFTM 
=-1THENGOTO8500 

150 PR I NT “ 3&ESg(Sr ; : PR INTTAB < 30 ) ; : I 

FTS <10THENPRINT"0"; 

160 PRINTTS 

400 IFPEEK<653>=2THENG0SUB1000 

410 IFPEEK<653)=1THENGOSUB1100 

450 IFF <X+20THENIFRND <1)>SKTHENGOSUB2000 

500 KE =PEEK( 197 ) 

505 Y = Y-8*< <KE = 23ANDY<220)-<KE=l2AN0Y >60 
) ) 

510 X=X-8* < <KE=44ANDX<224 >-(KE=47ANDX >32 

) > 

550 F=F+8*INT(RND<l)*2.5>*-<<F<X+4>-<F>X 
+4)> * < F >32 >*(F <232 ) 
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552 IFF < X +6THENF = X + 6 

560 G=G+8*INT(RND<1)*2.5>*-< <G<Y>-<G>Y>) 
563 IFG =YTHENG =Y+8 * <INT < RND<1> *3 >- 1 > 

565 IFG>220THENG=220 

570 IFE =0THENIFX >210THENE =1 

580 IFE >0THENE=E+ <X<100)+1: IFE =10THENGOS 

UB3000 

690 REM SOUND 
700 GOTO 100 

1000 POKE2040,197:P0KES0+8,10 

1020 IFY<G+12ANDY>G+4THENIFX >F-12ANDX<F + 

4THENS1=81 + 1 :GOSUB1200 :POKESO+11,33 

1030 IFS1=K2THENGOTO6000 

1040 FORT=1TO40:NEXT 

1050 POKE2040,195:P0KES0 + 1 1 ,0 

1090 RETURN 

1100 POKE2040,196:P0KES0+8,10 

1120 IFY< G-4ANDY >G-12ANDX >F-12ANDX < F +4TH 

ENS1=S1 + 1 :GOSUB1200:POKESO+l1,33 

1130 IFS1=K2THENGOTO6000 

1140 FORT=1TO40:NEXT 

1150 POKE2040,195 :POKESO +11,0 

1 190 RETURN 

1210 RETURN 

2000 IFG>YTHENG0T02100 

2010 POKE204 1 ,194:P0KES0+8,12 

2020 IFG >Y-12ANDG<Y-4THENIFF >XANDF<X+8TH 

ENS2=S2 + 1 :GOSUB2200:POKESO +11,33 

2035 IFS2=K1THENGOTO6500 

2040 FORT =1TO40:NEXT 

2050 POKE204 1 , 192 :POKESO+1 1 ,0 

2090 RETURN 

2180 POKE204 1 ,193:P0KES0+8,12 

2 130 IFG >Y + 4ANDG<Y+12THENIFF>XANDF<X+8TH 
ENS2 =S2 +1:GOSUB2200:POKESO+11,33 

2135 IFS2=K1THENGOTO6500 
2140 FORT =1TO40:NEXT 
2 150 POKE2041 , 192 :POKESO+1 1 ,0 
2190 RETURN 

2200 PR I NT " TftB < 3 

2 > S2 

2210 RETURN 
2500 REM SOUNDS 
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£505 SO=54£7£:FORT=0TO£8:POKESO+T,0:NEXT 
T 

£510 FOKESO+1,146:POKESO+5,7:POKESO+6,1£ 

3 :POKESO + 15,19 :POKESO+£4,15 

£5£0 POKESO +8,10 :POKESO + 1 £ , 9 :POKESO + 13,1 

£3 

£550 RETURN 

3000 REM UP AGAINST THE ROPES 

3010 FORT=£00TO150STEP-1 :POKEV,T:NEXTT 

3040 E=0 :X=T:RETURN 

6000 X=X-10:F=F+10:POKEV +£ ,F :POKE£04 1 , 13 
3 !POKEV , X s POKESO +11,0 

6010 POKESO +15,19:F0RT=1TO10 :POKESO +4, £ 1 

!FORDL = 1TO100 :NEXTDL:P0KES0+4,£0 

60£0 FORDL=1TO100:NEXTDL:NEXTT 

6050 PR I NT " BDgBMMMMBMH " TAB C 10) " U1ELL BOXED 

- A K . 0 . " 

6060 POKE£040,133:FORDL=1TO5003:NEXT 
6100 G0T066£5 

6500 X=X-10:F=F+10.'POKEV,X:POKE£040, 198 
:POKE V+£,F: POKESO + 1 1 ,0 

65 10 POKESO+15,13 : FORT =1TO10 :POKESO +4,£1 

:FORDL = ITO 100 :NEXTDL:POKESO+4,£0 

65£0 FORDL = ITO 100 .'NEXTDL: NEXTT 

6550 PP T kit " aKMMMa—I BAD LUCK- A K.O. 

! ! " 

6600 POKE£041,199:FORDL=1TO5000:NEXT 
66£5 POKEV +£ 1 ,0 : PR I NT " ; : IFK 1 =S£ORS£ >S 1 

THEN6700 

6630 PRINT" NELL DONE! ! ":PRINT" YOU BEA 

T "B$<XX>" IN "RO" ROUNDS" 

6640 PRINT " STHE RESULT IN POINTS UAS "SI 
" FOR YOU":PRINT"AND "S£“ FOR "B*(XX) 
6650 PR I NT " 21 I SUGGEST THAT YOU TRY A TO 
UGHER OPPONENT" 

6660 GOTO6780 

6700 PRINT" ®AD LUCK ! ! " : PR I NT " HYOU UER 
E BEATEN IN "RO" ROUNDS" 

67 10 PRINT" HTHE RESULT IN POINTS UAS "SI 
" FOR YOU":PRINT"AND "S£" FOR "B*<XX> 
67£0 PRINT"ai SUGGEST THAT YOU TRY A UEA 
KER OPPONENT" 

6780 PRINT"H HERE'S YOUR CHOICE:-" 

6790 FORF =1TO10 :PRINTF"IFF < >10THEN 
PRINT". 
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6795 PRINTB$<F>:NEXTF:POKE198,0 
6797 INPUT"ENTER YGUR OPPONENTS NO. OR 0 
TO END"; XX : IFXX < >0THEN6810 
6800 PRINT" ijiSttOTgl NEXT TIME YOU WANT A FI 
GHT I WILL BE h 

6605 PR I NT " Sllllll FOR YOUgBMSW’ : END 
6810 PR I NT " kJSUSBl OK- YOU SHALL FI GHT "B$< 
XX):PRINT"KPRESS ANY KEY TO START THE BO 
UT" 

6880 GETWS: IFW$ = " "THEN6880 

6830 S1=0 : SS =0 :SK = <11-XX)/18 :K8=10+XX+IN 
T < RND <1)*6)!K1 = 16-XX +INT(RND(1>*10) 

6840 GOTO 15 

7000 RESTOSE : REM TITLES ETC. 

7 100 PRINT " JMBM3 ENTER YOUR NAME <M 

AX 6 LETTERS) 

7150 INPUTC$:IFLEN<C$>>6THEN7100 
7800 PRINT-'U" ; 

7500 DATA "HENRY HOPELESS " , " ARNOLD AWFUL" 
,"NIGEL NO-GOOD","PHILIP FAIR" 

7508 DATA"ANDREW AVERAGE ", "ROGER RIGHT-H 
OOK" ," BRIAN BR ICKWALL ", "5 IMON SUPER" 

7504 DATA "EDWARD EXCELLENT" , "FLYNN FANTA 
STIC " 

7510 PRINT"H C H A M P I 0 N S H 

I P" 

7515 PRINT"H B 0 X I N G " 

7580 PRINT"BE9 SO YOU WANT TO BE A CHAMP 
ION DO YOU?" 

7588 PR I NT " HI IF SO THEN THIS IS THE GAM 
E FOR YOU" 

7584 PRINT"H WHICH OPPONENT DO YOU WISH 
TO FIGHT FIRST?" 

7530 FORF =1TO10 : READA$:PRINTF"IFF< 
>10THENPRINT"."; 

7535 PRINTA$:B^(F)=A$:NEXTF 

7540 INPUTXX : IFXX< 10RXX > 10THENPR I NT " CC" •* 

GOTO7540 

7545 SK = (. 1 1 -XX )/18 

7546 K8 =10 +XX +INT<RND(1)*6):K1 = 16-XX+INT 
< RND <1)*10> 

7550 B*=LEFT$<B$<XX>,6) 

7560 PRINT"J":PRINT"a VERY WELL,YOUR 

OPPONENT WILL BEH" :PRINTTAB<14)B$<XX) 
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7562 PRINT H |^ EACH BOUT YOU FIGHT IS ONL 
Y 3 ROUNOS" 

7564 PRI NT " M MOVE ABOUT THE RING UIITH3 < 
>XZ kAND PUNCH"; 

7566 PR I NT " H U1ITH aCBMk. < LEFT HAND),£SHIF 
Tk(RIGHT HAND) 

7568 PRINT B gMOTE THAT YOU CAN MOVE AND P 
UNCH AT THE"SPRINT"H SAME TIME.H" 

7570 PRINT n a ONLY PUNCHES TO THE HEAD SC 
ORE AND "SPRINT"gj KNOCK-OUTS ARE POSSIBL 
E " 

7575 GOSUB9000 

7580 PRINT"H PRESS ANY KEY TO START THE 
BOUT" 

7590 GETX$:IFX$ =""THEN7590 

7595 RETURN 

8500 REM END OF ROUND 

8505 PR INT"fiDfflSDfiHB9’TAB (29 ) " 0 s 00 

8510 POKESO+4,21 

8520 POKE2040,182SPOKE2041,195 
3530 FORT=1TO500 s NEXTsPOKESO+4,20 
8540 X=X+4* <X >32 ) s.Y = Y + 4 * < Y>60 ) :F=F-4*<F< 
224 ) s G=G-4*<G<220 > 


3550 POKEV,XsPOKEV+1,Y 

8560 P0KEV+2,FSP0KEV+3,G 

8565 POKE2040,1925POKE2041,195 

8570 IFX< =32ANDY<=60ANDF >=224ANDG >=220TH 

ENS580 

8575 GOTO3540 

8580 ROUND =ROUND +1s IFROUND=4THENR0UND=3 s 
GOTO6620 

8585 POKESO +15,19sFORT=1TO10sPOKESO+4,£ 1 
3590 PR INT"aaaaBMagWa ,, TAB <7 ) "PREPARE TO 
FIGHT"SPRINTTABC7)" THE NEXT ROUND " 

3595 FORDL =1TO200s NEXTDLs POKESO +4,20 
PR INT"SDSMSUHSMSEIS ,, TAB <7 ) " 

" s PR INTTAB (.7 > " 

FORDL =1TO200:NEXTDL 
NEXTT 
G0T062 

REM READ IN SPRITES’ DATA HERE 
FORT = 0TO511 SREADASPOKE192*64+T,AsNE 


8C00 


3605 
8610 
8620 
8000 
90 10 
XTT 
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9100 POKE2040,192 :POKE204 1 , 195 :POKEV+39 , 

0 s POKEV+40,7 

9400 RETURN 

9500 REM DRAW RING 

9510 AA*="&":BB$=AA$ 

9520 F0RT=lT027:AA$=AA$+"$":BB*=BB$+" ": 
NEXTT 

9530 PRINT"J"TAB<8)"POINTS"TAB<18)"POINT 
S"TAB <32)"TIME" 

9535 AA$=AA$+:BB$=BB$+ n m" 

9540 PRINT"J"AAS>:FORT=0TO22:PRINTBB$:NEX 
TT:PRintaa$; 

9600 PRINT"a"SPC<152)"TIME"SPCC196)"ROUN 
D "SPC (. 195) "PO INTS "SPC <35 )LEFT$<C$,6 ) 

9605 PRINT " MBPOM " TAB ( 32 ) LEFTS < B3> < XX ) ,6) 
9650 RETURN 


20010 

REM *** 

SPRITE 

BOXER-LEFT 

*** 


200 12 

DATA 0, 

56, 0, 

0, 127, 252, 

0, 

127 

, 254 

, 0, 167, 

2 




200 13 

DATA 0, 

127, 2, 

0, 56, 63, 

0, 0 

, 1 

27 , 0 

, 0, 127 





200 14 

DATA 0, 

0 , 99 , 

0, 0, 65, 0 , 

0, 

0, 

0, 0, 

0 





200 15 

DATA 0, 

0, 65, 

0, 0, 99, 0, 

0, 

127 

, 0 , ! 

56, 127 





200 16 

DATA 0, 

127, 63 

, 0, 127, 2, 

0, 

127 

, 254 

, 0, 127, 

252 




20017 

DATA 0, 

56, 8, 

0 



20020 

REM *** 

SPRITE 

LEFT-PUNCH R 

* * * 

18993 

DATA 112 

, 0, 0 , 

255, 255, 252, 

255 

, 255 

, 254, 254, 0, 2 




20023 

DATA 254 

,0,18 

, 112, 0, 62 

, 0, 

0, 

127, 

0, 0, 99 





20024 

DATA 0, 

0, 65, 

0 , 0, 65, 0, 

0, 

1 , 

0, 0, 

65 





20025 

DATA 0, 

0 , 65 , 

0, 0, 99, 0, 

0, 

126 

, 0, 

56, 62 





20026 

DATA 0, 

127, 18 

, 0, 127, 2, 

0, 

127 

, 254 

, 0, 127, 

252 




20027 

DATA 0, 

56, 0, 

0 



20030 

■k 

REM **# 

SPRITE 

LEFT-PUNCH LEFT 

* * 

20032 

DATA 0, 

56 , 0 , 

0, 127, 252, 

0, 

127 

, 254 

, 0, 127, 

2 
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20033 DATA 0, 127, 18, 0, 56, 62, 0, 0, 

127, 0, 0, 99 

20034 DATA 0, 0, 65, 0, 0, 65, 0, 0, 1, 

0, 0, 65 

20035 DATA 0, 0, 65, 0, 0, 99, 0, 0, 127 

, 112, 0, 62 

20036 DATA 254, 0, 18, 254, 0, 2, 255, 2 

55, 254, 255, 255, 252 

20037 DATA 112, 0, 0, 0 

20100 REM *** SPRITE BOXER RIGHT *** 

20102 DATA 0, 56, 0, 63, 252, 0, 127, 25 

2, 0, 65, 252, 0 

20103 DATA 73, 252, 0, 124, 56, 0, 126, 

0, 0, 198, 0, 0 

20104 DATA 131, 0, 0, 131, 0, 0, 129, 0, 

0, 131, 0, 0 

20105 DATA 171, 0, 0, 198, 0, 0, 254, 0, 

0, 124, 56, 0 

20106 DATA 73, 252, 0, 65, 252, 0, 127, 

252, 0, 63, 252, 0 

20107 DATA 0, 56, 0, 0 

20110 REM *** SPRMTE RIGHT-R PUNCH *** 

20112 DATA 0, 28, 0, 63, 254, 0, 127, 25 

4, 0, 64, 254, 0 

20113 DATA 72, 126, 0, 124, 28, 0, 126, 

0, 0, 198, 0, 0 

20114 DATA 131, 0, 0, 131, 0, 0, 129, 0, 

0, 131, 0, 0 

20115 DATA 131, 0, 0, 198, 0, 0, 126, 0, 

0, 124, 0, 14 

20116 DATA 72, 0, 63, 64, 0, 127, 123, 2 

55, 255, 63, 255, 255 

20117 DATA 0, 0, 14, 0 

20120 REM *** SPRITE RIGHT-L PUNCH *** 

20122 DATA 0, 0, 14, 63, 255, 255, 127, 

255, 255, 64, 0, 127 

20123 DATA 72, 0, 63, 124, 0, 14, 126, 0 

, 0, 198, 0, 0 

20124 DATA 131, 0, 0, 131, 0, 0, 129, 0, 

0, 131 ,0,0 

20125 DATA 131, 0, 0, 198, 0, 0, 126, 0, 

0, 124, 28, 0 

20126 DATA 72, 126, 0, 

254, 0, 63, 254, 0 


64, 254, 0, 127 
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20127 DATA 0, 28, 0, 0 

20130 REM *** SPRITE LOSER *** 

20132 DATA 0, 0, 0, 0, 0, 24, 0, 0, 24, 
0, 48, 8 

20133 DATA 1, 241, 248, 2, 49, 0, 2, 1, 

0 , 2 , 1 , 0 

20134 DATA 115, 253, 0, 251, 255, 0, 255 
, 254, 0, 255, 254, 0 

20135 DATA 251, 255, 0, 115, 252, 128, 2 

, 0, 64, 2, 0, 126 

20136 DATA 98, 0, 2, 124, 0, 6, 96, 0, 6 

, 0, 0, 0 

20137 DATA 0, 0, 0, 0 

20140 REM *** SPRITE U1INNER *** 

20142 DATA 112, 0, 224, 112, 0, 224, 32, 

240, 64, 33, 248, 64 

20143 DATA 35, 108, 64, 35, 108, 64, 35, 

252, 64, 19, 12, 128 

20144 DATA 9, 249, 0, 4, 242, 0, 3, 252, 
0, 3, 252, 0 

20 145 DATA 3, 252, 0, 1, 248, 0, 0, 240, 

0, 1, 152, 0 

20146 DATA 1, 152, 0, 3, 156, 0, 1, 152, 

0, 13, 155, 0 

20147 DATA 15, 159, 0, 0 
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Duello 

Un classico duello, stile ottocento, nel mezzo di una meravigliosa fore¬ 
sta ad alta risoluzione. Soli, voi e il vostro avversario e tutto questo so¬ 
lo perché non gli avete restituito le pedine che gli avete mangiato a 
dama ... 

Per vostra fortuna, potete sparare per primo ... o per terzo ... sem- 
preché abbiate la possibilità di un terzo colpo. 


5 REM *** D U E L *** © MICHAEL BEWS 

*** TRANSLATED BY IAN YATES *** 

10 V=53248:X=RND<-TI):POKEV + 32,4 :POKEV + 3 
3,5:POKEV+24,23 :POKE650,255 :M=20 
20 Y$= " 11 • 


JJjJJ-jJJ.jjJ.JJJjjJJ T jTTJ TT) 


30 PRINT"JUIUU~LEfìSE LIA IT UHI LE USER- 
DEF I NED " , , " IICHARACTERS ARE SET UP . 

40 P0KE52,48 :P0KE56,48 :P0KE56334,PEEK <56 

334>AND254:POKE1,PEEK<1>AN0251 

50 FORX =14336T015143 :POKEX,PEEK < X + 40960) 

:NEXT:FORX =1TO30: READA :NEXT 

60 FORX=15144T015247 : READA :POKEX,A :NEXT: 

M* = "iliaL." : N* = " rlH- 1 - 

70 F0RX=15248T016383 :POKEX,PEEK <X+40960) 
:NEXT:T$="| $ MIDLf MHI- . *- 
80 POKE 1 , PEEK <1 )0R4:P0KE56334,PEEK<56334 
>OR1 :POKEV+24,<PEEK <V+24)AND240 > + 14 
90 F0RX=832T0894:POKEX,0:NEXT:P0KE834,3: 
POKE337,3:POKE2040,13:P0KEV+27,1 

99 REM ** PRINT SCENE 

100 PR 1 NT " -JW»» - f ~ \_ ©1983 V.-|#~ 

L |-0»"TAB<43) "I RANSLATED BY |*| . 

1 10 PRINT"!" :REST0RE:F0RA=1T015.*READY,X: 
PRINTLEFT$<Y*,Y>LEFT$<X$,X >T$:NEXT 
120 PRINTLEFTSKY$,13 >LEFT$<X$,10)M$"CTTA 
B<30)N$"aaS"TAB<27)"aa»HOTS: 

130 PRINTLEFT$<Y$,20)"3 IOU ARE THE D 

UELLIST ON THE LEFT. "; 

140 PRINT"a I AKE ALTERNATE SHOTS LI I TH 
YOUR " 

150 PRINT"3 OPPONENT UNTIL ONE SCORES 
A H IT . 
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160 PRINT”a /SE 'A&Z ' TO A IM, ’N' TO 

FIRE. 

170 PRINT"a 

•I ■ 

r 

180 PR I NTLEFT* ( Y$ . 1 3 ) " ,-~1 1 -, »l ? MI 

||"DTAB <24 ) "|— YT/~/ 1: IMI"0 

199 REM **MfìIN GAME ROUTINE 

200 A =PEEK<197): IFA< >10ANOA< >12ANDA<>39T 
HEN200 

210 IFA=10THENM = M+1 :GOTO300 

220 IFA=12THENM=M-1 :GOTO300 

230 POKEV+39,2:J = 153 :K = 90 :P = -3*M/19 :Q=6 

240 GOSUB600 : S =S + 1 : PR I NT " aMM “ TAB < 33)S: 

I FM< 2AMDM > -2THENtt/J= 1 : GOTO500 

250 GOTO400 

300 IFM<-20THENM=-20 

310 IFM >20THENM=20 

320 GOTO200 

399 REM * «OPPONENT FIRE RTN 

400 FORX=1TO800:NEXT:Y=INT(RND(1)*50)-25 
: POKEV+39 ,6:J = 153:K=240:P=2*Y/19 :Q =-6 
410 GOSUB600 :S = S+ 1 :PRINT ,, aSHHa ,, TAB<33)S: 
IF Y< 3ANDY > -3THENUI=0 : GOTO500 

420 GOTO200 

499 REM * * * *END OF GAME 

500 IFUI= 1THENO = D + 1 ! PR INTLEFT*( Y$, 19)TAB< 
13) "aa'‘DLEFT$<Y$, 15)TAB< 11)" CK//-_! 

510 I FUJ = 0THENO =0 + 1 : PR INTLEFT*< Y$, 19)TAB< 
34) ,, aa ,, OLEFT$<Y$, 15)TAB(30) " Q^//~_\ 

520 S = 0 : M=20 :POKE 138,0 : INPUT"anRESS | 
/_/]" ; Z $: GOTO 100 

599 REM *** SHOOTING ROUTINE 

600 FORC=1T027:POKEV,K s POKEV + 1,J:P0KEV+2 
1 , 1 !K = K+ Q:J=J+P: NEXT : POK.EV +2 1 ,0: RETURN 

699 REM*TREE POSITIONS + CHARACTER DATA 

700 DATA3,8,4,10,5,15,3,19,4,22,5,26,7,3 
2,8,24,8,18,7,4,8,6,11,31,13,4,15,7,15 
800 DATA33,3,3,15,15,126,127,255,127,15, 

255.255.255.255.255.255.223.. 192.240 
810 DATA248,126,254,252,252,127,63,55,31 
,31,24,,,255,255,247,63,60,60,60,60,255 
820 DATA 188,248,248,240,48,,,,,,,,,, ,60 , 

60.60.60.60.60.60.60.8.. 138.40.138.162 


Duello 251 


830 DATA160,38,248,118,112,119,38,850,85 

4,112,112,112,118,80,80,80,80,120 

840 DATA31,14,14,238,100,95,127,14,14,14 

,14,10,10,10,10,30 
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il pozzo 


Ecco un gioco per due, in cui ciascun giocatore deve dirigere un omi¬ 
no lungo un labirinto verticale in modo che vada a cadere in un buco 
del fondo che è sempre in movimento. L'omino è mosso lungo il poz¬ 
zo mediante lo spostamento in su e in giù di marcatori collocati lungo 
le pareti esterne del labirinto e mediante lo spostamento orizzontale 
di parti del labirinto, in modo da consentire alle figure di scendere ai 
livelli più bassi, il trucco del gioco stà nel modificare la configurazione 
interna del pozzo in modo da far spostare rapidamente la propria fi¬ 
gura senza offrire però allo stesso tempo troppe opportunità 
all'avversario. 

1 REM*** 64 VERSION *** 

2 REM*** FALL GUY *** 

10 DIMA*(18) 

20 C = 55296 s H=.97 s M=.7 
30 GOSUB590 
40 T = - 1 :F =0 
50 GOSUB500 
60 S=1024 

70 A 1 = 123 :A2=156 :T1=88 :T2 =108 
80 I 1 = 1 : 12=1:P1=T1:P2=T2:G1=0 :G2=0 
90 RL =875 

100 PRINT"D"TAB<10)"HIT ANY KEY TO GO " 

110 GETZ*:IFZ*=""THEN110 
120 PRINT"»J" 

130 PRINTL*TAB(30)R*:PRINT 

140 GOSUB740 

150 FOR1=1TO18 

160 PRINTTAB<5>A*<I) 

170 NEXT 
180 GETZ* 

190 IFZ*="A"THENLR=I1 :GOSUB830 

200 IFZ*="D"THENLR = I1 :GOSUB830 

210 IFZ*= "2 "AND I1<18THENI1 = 11 + 1:POKES+Al 

, 32 ! A 1=A1+40 :POKES +A1,62:P0KEC+A1,3 

220 IFZ*="Q"AND I1>1THENI1 = 11-1:P0KE5+A1, 

32:Al=A1-40:POKES+A1,62 :POKEC+A1,3 

230 IFZ*="L"THENLR=12 :GOSUB830 

240 IFZ *="; "THENLR=12:GOSUB830 

250 IFZ*=" = "AND 12<13THENI2=12+1 :POKES+A2 

,32 :A2 =A2 +40 :POKES+A2,60 :P0KEC+A2,3 
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260 IFZ $="£"AND 12 >1THEN12=12-1:P0KES+A2, 
32 :A2=A2-40:POKES+A2,60 :POKEC+A2,3 
270 POKES+RL,160:RL = RL-1 : IFRL<845THENRL= 
RL +30 

280 POKES+RL,32 

290 IFPEEK<S+P1+40>=81THENPOKES + P1,32:P1 
=T1 : 61=0 

300 IFPEEK(S+P2+40)=81THENPOKES+P2,32 :P2 
=T2:G2=0 

310 POKES+P1,90 :POKEC +P1,7 :POKES+P2,87 :P 
OKEC +P2,7 

320 IFPEEK<S+P1+40)=32THENPOKES+P1,32:P1 

=P1 +40:POKES+P1,90:POKEC+P1,7:G1=G1 + 1 

330 IFPEEK <S+P2+40)=32THENP0KES+P2,32 :P2 

=P2 +40 :POKES+P2,87 :POKEC+P2,7 :G2=G2+1 

340 IFP 1 >840ORP2>840THEN360 

350 GOTO 180 

360 PR INT"iJ" : PR INT 

370 IFP1 >840THENLI$ = L$ : GOTO390 

380 W$ = R$ 

390 PRINT" k"W$"a| “ '> 

400 PRINT"UPS THE BEST FALL GUY...." 

410 PRINT:PRINT 

420 PRINT” HIT 'N' FOR A NEUJ GRID" 

430 PRINT:PRINT" HIT 'S' TO STOP PLAYING 

II 

440 PRINT:PRINT” ANY OTHER KEY FOR THE S 
AME GRID" 

450 GETZ*:IFZ*=""THEN450 
460 IFZ$= * S"THENEND 

470 IFZ$ ="N"THENPRINT:PRINTTAB(10)"MAKIN 

G NEW GRID..." :GOTO50 

480 PRINT 

490 GOTO60 

500 FOR1 = ITO 18 

510 A*<I)="" 

520 FORJ =1TO30 
530 H=RNO<1) 

540 IFX>HTHENA$<I)=A*<I)+"•":GOTO570 
550 IFX>MTHENAS<I)=Af(I)+” ”:GOTO570 

560 ASCI) =A$( I ) + 

570 NEXT:NEXT 
580 RETURN 

590 PRINT"J"TAB<15)"FALL GUY 
( 15) "-" 


":PRINTTAB 
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600 PRINT s PRINT 

610 PRINT" THIS IS A GAME FOR TUO PLAYER 
S, " 

620 PR I NT “ WHO HA VE TO GUIDE THE IR PLAYER 
TO THE " 

630 PRINT"BOTTOM OF THE GRID BEFORE THE 
OPPONENT." 

640 PRINT"a^VOIDn MINES AS LANDING 0 

N ONE " 

650 PRINT" WILL TAKE YOU TO THE TOP AGAIN 

. 3 " 

660 PRINT:PRINT"ENTER YOUR NAMES":PRINT 
670 INPUT"FIRST THE LEFT PLAYER";L$ 

680 INPUT"NOLI THE RIGHT PLAYER R$ 

690 PR I NT : PR I NT " CONTROLS : UP DOLIN LEF 
T RIGHT" 

700 PRINT:PRINT"PLAYER l: Q 2 A 
D " 

710 PRINT"EPLAYER 2: £ = L 

II 

720 PR I NT : PR I NT : PR INTTAB < 10) "F'LEASE WAIT 


730 RETURN 
740 FOR1=1T032 

750 POKES +I+83,98:POKEI+ 83 +C , 3 
760 POKES+1+843,160 :POKEC+ I+343,4 
770 NEXT 

790 FORI=124TO804STEP40 

790 POKES+I,160:POKEC+ 1,3 :PQKE6 +1+3 1,160 
:POKEC+ I +3 1,3 
800 NEXT 

810 POKES+A1,62:POKEA2+5,60:POKEC+A1,7:P 
OKEC +A2,7 
820 RETURN 

830 F1=F:F2=F:F3=T:F4=F:F5=F:F6=F:F7=F 
840 IFLR< >G1ANDG2< >LRTHEN1000 
850 IFZ$< >"A"ANDZ$<>"L"THEN930 
860 IFPEEK<S+P1- 1X>160 AND PEEK(S+P1 + 1) 
=102THENF1=T 

870 IFPEEK < S +P2-1)< >160 AND PEEK<S+P2+1> 
= 102THENF2 =T 

880 IFPEEK(S+P1 -1) = 160 AND<Z*="D"OR Z*=" 
;">THENF6=T 
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890 IFPEEK(S+P2-1>=160 AND <Z*= M D" OR Z* 
= M ;■>THENF7=T 

900 IF PEEK<S+P1-1 >=*160 AND PEEK<S+P1+1> 
= 102 AND LR =G1THENF3 = F 

910 IF PEEK <S+P2-1>=160 AND PEEK(S+P2 + 1> 
=102 AND LR=G2THENF3=F 
920 GOTO 1000 

930 IFZ*< >"D"ANDZ$< >"; "THEN1000 

940 IFPEEKCS+Pl+lX>160 AND PEEK<S+P1-1> 

= 102THENF4 =T 

950 IFPEEK<S+P2+1X>160 AND PEEK<S+P2-1> 
= 102THENF5 =T 

960 IFPEEKCS+Pl + l > = 160 AND <Z»= ,, A ,, OR Z* = 
"L 11 >THEN F6=T 

970 IFPEEK<S+P2+1>=160 AND <Z*="fi u OR Z* 
="L">THEN F7=T 

980 IFPEEK<S+P1 + 1> = 160 AND PEEK<S+P 1 -1> = 
102 AND LR =G1 THENF3=F 

990 IFPEEK(S+P2+1> = 160 AND PEEK<S+P2- 1 > = 
102 AND LR =G2THENF3 = F 
1000 IF NOT F3THENRETURN 

1010 IFF6THENP0KES+P1,32:P1=T1:G1=0:RETU 
RN 

1020 IFF7THENPOKES+P2,32:P2=T2:G2=0:RETU 
RN 

1030 IFF 1 ANOLR=G 1 THENPQKES+P 1 ,32:P1=P1-1 
s POKES +P1,90 

1040 IFF2ANDLR=G2THENP0KES+P2,32:P2=P2-1 
:POKES +P2,87 

1050 IFF4ANDLR=G1THENPOKES+P1,32:P1=P1+1 
:POKES +P1,90 

1060 IFF5ANDLR=G2THENP0KES+P2,32 :P2=P2+1 
:POKES +P2,87 

1070 PRINT M MT !FORI = 1TOLR:PRINT“M"; :NEXT 
1080 IF Z$= ,, A ,, ORZ$ = ”L “THEN A*(LR>=RIGHT 
$<A$<LR>,29>+LEFT$<A*<LR>,1> 

1090 IF Z$ ="D" ORZ $ =" J "THEN A$<LR>=RIGHT 
$<A*(LR>,1>+LEFT$<A$(LR>,29> 

1100 PRINTTAB <5)A$<LR > 

1110 RETURN 
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in questo gioco più giocatori sono in competizione tra loro per avere 
la stazione radio di maggior successo. Dopo aver ufficialmente aperto 
la vostra stazione, dovete scegliere un presentatore fra quelli disponi¬ 
bili, molto o poco costosi in base alla loro capacità di attirare l'atten¬ 
zione degli ascoltatori. 

La scelta dei presentatori ha un'influenza determinante sul tipo di pro¬ 
gramma che la vostra stazione può produrre, in quanto quelli con il 
cognome che inizia con le prime lettere dell’alfabeto (Aardwark, Boul- 
der, ecc.) sono bravi conduttori di incontri, conferenze, telegiornali, 
ma non valgono granché come disk-jokey, quelli con i cognomi che 
iniziano con le lettere intermedie vanno bene per qualsiasi program¬ 
ma, e quelli con le ultime lettere dell'alfabeto sono i migliori disk- 
jokey sul mercato. E voi avete bisogno proprio di questi ultimi perché 
volete destinare la vostra radio soprattutto ai programmi musicali. 

Per giocare, dovete innanzitutto introdurre la percentuale di brani 
musicali che desiderate trasmettere dalla vostra stazione, seguita dal 
numero di automezzi che intendete utilizzare per registrare eventi lo¬ 
cali ed esprimere così la vostra partecipazione ai fatti che interessano 
la gente. 

La stazione vive grazie alla pubblicità: ciò significa che dovete preve¬ 
dere dei costi promozionali per garantirvi il costante aumento dei vo¬ 
stri ascoltatori e rendere così i vostri annunci più ambiti. 

Il computer visualizza l'area di trasmissione per tutte le stazioni, distri¬ 
buendone i contrassegni sulla cartina, il programma prevede una revi¬ 
sione annua che consente di modificare la composizione della vostra 
stazione al fine di ottenere un maggiore successo. 

Il gioco continua finché uno dei giocatori non riesce a conquistare la 
zona di ascolto corrispondente alle regioni meridionali mentre perdo¬ 
no inesorabilmente le stazioni senza pubblico. 


2 REM RAD I0P0WER***64 VERS ION**«cWALUJYN 
5 GOSUB63900 

10 D <1) = -39 s D < 2)» 1SO<3>*41:D<4>*40:D<5>* 
39:D<6) = -l:D<7> = -4 1 :D<8>=-40 
20 G =US 

30 □IM N*<25>,S*<25>,P1<23>,P2C25),P5<25 
),P6<25),T<25>,T*<23>,TP<25>,PR<25> 

40 DIM B*(22'> ,BM<22> ,BP(22> ,BN<22> 
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50 FOR I=0TO22: READ B*<I>,BM<I>,BP<I): NE 
XT I 

60 DATA ARNOLD AARVARK,1,50000 
6 1 DATA BRIAN BOULDER ,2. , 30000 

62 DATA CLARA CUTHROAT,5,45000 

63 DATA DINA DYNAMICK,10,25000 

64 DATA EDDIE EEL ,15,10000 

65 DATA FREDA FOOLISH,20,10000 

66 DATA GERRY GULLIBLE,25,10000 

67 DATA HARRY HATEFUL,30,15000 

68 DATA IZZY IDLETALK,35,10000 

69 DATA JOLLY JETSETTER,40,25000 

70 DATA KING KNIFE,50,20000 

71 DATA MOLLY MUD, 50,10000 

72 DATA NED NORMAL,50,20000 

73 DATA POLLY PER5PEX,G0,10000 

74 DATA RICKY RAD IO,65,25000 

75 DATA SALLY SONIX,70,15000 

76 DATA TOMMY TAPE,75,30000 

77 DATA UNCLE USELESS,80,10000 

78 DATA VICTOR VROOM,85,20000 

79 DATA WALLY UJETLOCK , 90,10000 

80 DATA XANDRA XEXY,95,40000 

81 DATA YALE YESTERYEAR,98,45000 

82 DATA ZOOT ZIEGLER,99,50000 
100 DIM DS<25> 

105 FOR I =0TO25 : READ DSC I ì 

106 P2 <I) = 100000 

107 IF 0*<I) = “S" THEN D =I - 1 : GOTO 190 

108 NEXT I 

109 DATA + + + + + + + + + + + + + + + + 

♦ + + ♦+- + + + + + " 


1 10 DATA ■ + 

+ M 

1 1 1 DATA H + 

+ " 

112 DATA "+SALISBURY O 
ER O + " 

1 13 DATA " + 

+ ■ 

114 DATA “+ 


STOCKBRIDGE O 


WINCHEST 


116 DATA 
RD O 


+ 


TLIYFO 
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1 17 

DATA 

" + 

ROMSEY O 

P/FLD 0+" 


1 18 

DATA 

■ + 

CHNDLRS/FORD O 



+ " 


1 19 

DATA 

" + 

EASTLEIGH O 



+ " 


120 

DATA 

M + 

B/WALT 

HAM 

O 

+ » 


121 

DATA 

"+F/BRDGE O 




+ " 


122 

DATA 

" + 

TOTTON O m 



+ " 


123 

DATA 

" + 

1 

O 

0) 

OTON 

+ " 


124 

DATA 

■ + 

MMaìIC 

KHAM O 

+ " 


125 

DATA 

" + 

LYNDHURST O Mi 



+ " 


126 

DATA 

■+ R I NGUIOOD 

O BBF 

AREHAM O 

+ " 


127 

DATA 

- + 

B/HURST O MMX 

m 


+ " 


128 

DATA 

" + 

M MMMMI 

MB 


+ " 


129 

DATA 

■+ C/CHURCH 



YMTHMO+" 


130 

DATA 

" + O B/MTHMM 




MHH 


B+ " 


135 

DATA 

"++++++++++++++++++++++++++++++ 

+++++++++■ 


180 

DATA 

M ^ Il 


190 

FOR 

1 = 1TO20! READ 

T <I> s NEXT 1 

191 

DATA 

183,251,273 

,393,419,438,466,508 


,554,569,622,667,715,741 ,77 1 ,797 

192 DATA 821,891,918,921 

193 FOR 1=1TO20‘READ T$<I):NEXT l:FOR 1= 
0TO19'READ TP <I):NEXT I 

194 DATA STOCKBR IDGE ,SAL ISBURY,UII NCHESTE 
R,TWYFORD,ROMSEY,PETERSFIELD 

195 DATA CHANDLERS FORD,EASTLEIGH,BISHOP 
S l/JALTHAM,FORD INGBR IDGE ,TOTTON 

196 DATA SOUTHAMPTON,UJICKHAM,LYNDHURST,R 
INGUIOOD , FAREHAM , BROCKENHURST 

197 DATA CHRISTCHURCH,PORTSMOUTH,BOURNEM 
OUTH,1,3,4,2,2,2,1,2,1,1,1 
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198 DATA 5,1,1,2,2,1,1,5,5 
£00 REM MAP DISPLAY 
£0£ POKEUG,U6:POKEUB,UF 

205 PR I NT " *J8E1" 

206 POKEUG,U3:PRINTU4$; 

210 FOR I=0TOD:PRINTD$ <I); :NEXT:PRINT"9" 

£20 POKE G+999,43:P0KEUC+999,U4 

250 FOR I =0TO£5 : IF N$<I>="" THEN 270 

£55 A=ASC<LEFT$<S$(I),1))+129-65 

260 POKE G+T<I),A:POKEUC+T<I>,U6 

£Y0 NEXT I 

300 PRINTU2S;"aa PRESS SPACE KEY FOR AUD 
IENCE REACTION "; 

302 PRINT"a PRESS ANY OTHER KEY TO SPEAK 
TO ME 

310 GET A$:IF A$="" THEN 310 
315 IF A$=" "THEN 700 
320 GOSUB5000 

699 GOTO200 

700 REM GOSUB DISPLAY REACH ON MAP 
70 1 POKEUG ,UF:POKEUB,U4:PRINTUES; 

702 PRINT"iJHAS EVERYONE DONE THE IR ANNUA 
L PROGRAMMEREV IELi ?<Y/N> 

703 GET A*: IF A$ =“" THEN 703 

704 IF A $ < >"Y" THEN 200 
706 POKEUG,U6:POKEUB,UF 
710 PR I NT " kJHS" 

715 POKEUG,U3:PRINTU4S; 

720 FOR I=0TOD:PRINTD$<I>?:NEXT:PRINT"a" 

730 POKE G+999,43:P0KEUC+999,U4 

730 FOR I=0TO22: IF N*(I)= M " THEN 795 

790 POKE G + T<I),218* POKEUC +T<I>,U6 

795 P5<I)=0 :NEXT I 

797 QQ=1 

800 PP =0 s FOR I=0TO£2 
910 IF NS< I ) = " " THEN 950 
815 IF P 1 < I ) #10<QQ THEN 950 
820 PP=1 
825 PZ=T(I> 

330 DD =INT < RND(1)*8 +1) 

840 K=PEEK<G+PZ+D<DD>> 

850 IF K =43 THEN 825 

852 IF K=ASC<LEFT$<S$CI>,1))+64 THEN 930 
855 IF K<87 THEN 900 



260 Stazione radio 


860 IF K = 10E OR K = 37 OR K=218 THEN 930 
870 IF K. >123 AND K<155 THEN KK =K-129 

874 FOR M = 0TO22: IF S$<M)="" OR S$<M)=S$< 

I) THEN 376 

875 IF ASC<LEFT$<S$<M),1))-65=KK THEN 88 
0 

876 NEXT M:GOTO900 
880 P5 ( M > =F'5 ( M ) - 1 

885 FOR X =1T05:POKE G + PZ +D <DD),42 :POKEUC 
+PZ +D < OD > r U2 

886 FOR Z = 1TO50:NEXTZ:POKE G+PZ + D <OD) ,32 
s NEXTX:POKEUC +PZ +D < DO),U3 

900 POKE G+PZ+D<DD>,ASC<LEFT$<S$<I > , 1 >> + 
64 

902 POKE UC+PZ+D<DD),U0 

904 PZ=PZ+D<DD> :P5( I >=P5( I > + l 

910 GOTO 950 

930 PZ=PZ+D<DD):GOTO830 

950 NEXT I 

960 QG)=QQ+ 1 

970 IF PP=0 THEN GOSUB30000: GOTO 1000 
980 GOTO800 

1000 PRINTUF^'"aTHAT‘9 THE AUDIENCE REAC 
H AT THE MOMENT 

1005 PRINT"STRESS ANY KEY FOR STATION DE 
TAILS" 

1010 GETA$:IFA$=""THEN1010 
1100 REM 

1114 FOR I=0TO22: IF S$<I>=" M THEN 1118 

1116 P2 < I )=P2 <I)+P5 < I > * 1500 

1117 POKEUG , U9:GOSUB2000 

1118 NEXT I 

1122 PRINT"iFRESS ANY KEY TO RETURN TO T 
HE BASIC MAP“ 

1123 GET A$: IF A$= " " THEN 1123 
1125 GOTO200 

2000 PRINTUF$"J- 


2010 PRINTU2#"RAD IO ";S$<I):PRINTU4*"BAS 
ED IN “T$<I) 

2020 PRINTUF$"BSTATION MANAGER :";N*<I> 
2040 PRINTU2$"HSAUDIENCE FIGURES... 
PICI); "X" 

2050 PRINT"AUDIENCE APPRECIATION: " ; 


P5 < I ) 
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2060 PR I NT "SMONE Y NOLI AVA ILABLE ..." ; P2 ( I 
);" POUNDS 

2061 PRINTU4*; 

2062 FOR J =0TO22: IF BN<J) = I THEN PRINT“P 
RESENTER...."B$<J) 

2063 NEXT J 

2070 PRINTUF*"- 


2080 PRINT" £FRESS ANY KEY FOR MORE DETAI 
LS" 

2085 GETA$:IFA$ =""THEN2035 
2100 RETURN 

5000 REM INPUT NEW MOVE 

5002 GOSUB30000:PRINTUF$"aiS THIS A NEUJ 
STATION ? <Y/N) 

5003 GET A*:IF A$= "" THEN 5003 

5004 IF A$="Y" THEN 5006 

5005 GOTO5030 

5006 GOSUB30000 : PR INTUF*; : INPUT"a-JHAT IS 
TOUR NAME PLEASE " ,* N* 

5008 GOSUB30000: INPUT"aTHE NAME OF YOUR 
STATION. . . "? S$ 

5010 FOR I=0TO25:IF LEFT$(S$<I>,1)=LEFT$ 
<S$,1> THEN 5013 
50 12 NEXT I :GOTO5015 

5013 PRINT"flEORRY BUT PLEASE CHOOSE ANOT 
HER NAME": FORI=0TO2000:NEXT I :GOTO5008 
5015 GOSUB30000 

5020 PR INTU4$; "gfiBS^AD IO "S$"B. MANAGER: 
"N$ 

5022 INPUT"HE?ASED IN LJHICH TOWN";T$ 

5023 GOSUB30000:FOR I=0TO25:IF T$<I)=T$ 
AMD N$<I)<>""THEN 5026 

5024 IF TS<I> =T$ THEN 5028 

5026 NEXTI :PRINT" JMSORRY BUT THAT PLACE 
IS NOT AVAILABLE":FOR I=1TO2500:NEXTI 

5027 RETURN 

5028 PRINT" S0OK. CONGRATULATIONS ON A NE 

LI STATION OPENING . GOOD LUCK ! " 

5029 POKEG + TCI),218 :POKEUC + TCI>,U6:S$<I> 
=S*:N*<I)= N$:FOR1 = 1TO3500:NEXTI : RETURN 

5030 PR INTUF*; : INPUT" 4 JaIHAT IS YOUR NAME 
PLEASE wi-mH" ; NT 

5035 IF N$="-" THEN 5030 
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5038 FOR I=0TO25:IFN$<I>=N* THEN 5050 
5040 NEXTI:PRINT"B30RRY BUT I HAVE NO RE 
CORD OF THAT NAME " : FOR I = 1TO2000 : NEXTI 
5045 RETURN 

5050 POKEUG,UF:POKEUB,U3:PRINTU7$; 

5055 PR INT" k JJSRAD IO "S^(I) H B - "TS(I) 

5060 PRINT"BSTATION MANAGER .... "N$<I> 
5070 PRINTU3$"a######################### 
##############"; 

5080 PRINTU7$"MONEY AVA ILABLE. . . "P2< I>"P 
OUNDS 

5090 PRINTU3*"####################**##### 
##*########### 

5100 PRINTU9$"MTHESE PRESENTERS WANT TO 
WORK FOR YOU. . . " ; 

5105 PRINT"iSMO. NAME 

PR I CE 

5110 FOR J =0TO22! IF BN<J><>0 THEN 5 130 
5115 IF RND < 1 ) > .45 THEN 5 130 
5120 PRINT J,B$<J>,TAB<31>BP<J) 

5130 NEXT J 

5150 PRINT" flDO YOU WANT TO HIRE ONE ?<Y/ 
N) “ 

5151 GET A$:IF A$ ="" THEN 5151 

5152 IF A$="N" THEN 5165 

5 153 PR I NT " JSJIaIH ICH PRESENTER DO YOU WANT 
<100 =NONE >": INPUT“NUMBER. . . ";B 

5154 IF B =100 THEN 5165 

5155 IF B >22THEN 5150 

5 156 PRINTU7$; "YOU HAVE M P2 <I)"POUNDS 
5160 BNCB ) = I s PR INT"Ha"B$<B )JOINS RADIO 
"S$(I>" !" 

5 162 PRINTU3$"--- 


5165 P=0:PRINTUBA; 

5170 PRINT"PRESENTERS ON STATION...H":B= 
0 : FOR J =0TO22 '• IF BN<J) = I THEN 5180 
5175 NEXT J:GGT05195 
5 180 B =1 :PRINTJ,B$ < J)J TAB <31>BP<J) 

5185 P=P+BP<J):G0T05175 

5135 IF B =0 THEN PRINT"fiNO SPECIAL PRESE 
NTERS ON STATION ! 

5200 PRINTU7$; "gJYOUR WAGE BILL IS"P"POUN 
DS 
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5202 IF P=0 THEN 5300 

5205 PRINT"3D0 YOU WISH TO FIRE ANY 0F T 
HEM <Y/N>" 

5210 GET A*:IF THEN 5210 

5220 IF A$="Y" THEN 5230 
5225 GOTO5300 

5230 INPUT"UIH ICH ONE . . . NO . " ; N 
5232 IF N>22 THEN 5230 
5235 IFBN<N)< >ITHEN5300 
5240 BN<N)=0:P=P-BP<N) 

5250 PRINT"B$< N ) " LEAVES RADIO “S$(I) 
5300 P2 <I)=P2 <I>-P s IF P2 < I ) < 0 THEN 5320 
5310 PRINTU3*"- 


5311 PRINTU?$"BrrOU NOUI HA VE " P2 < I ) "POUNDS 
5315 GOTO5350 

5320 PRINT"fifYOU HAVE BANKRUPTED YOURSELF 
! " 

5325 P2< I ) =P2 < I >+P 

5330 PR INT"BIYOU THEREFORE MUST FIRE ONE 
OF THEM..." :G0T05165 

5350 PRINTU3$"- 


5355 PRINTUR*"BWHAT PERCENTAGE OF YOUR O 
UTPUT IS GIVEN OVER TO MUSIC <0-100>" 
5357 INPUT R 

5360 PRINTU3*"-- 


5365 PRINTUU$"SPAD 10 CARS COST 10000 EAC 
H . " 

5367 IF PR(I)=0 THEN 5370 

5368 IF RND < 1 ) > . 4 THEN PR I NT " JJDNE OF YOU 
RS HAS FALLEN APART":PR(I>=PR<I)- 1 

5370 PR INT " YOU HAVE"PR< I ) "RAD IO CARS , "N 
*< I > 

5380 INPUT"HOW MANY MORE DO YOU UJANT NOW 
" ; PR 

538 1 IF PR +PR < I ) =0 THEN PR I NT " »*JHAT HAVE 
YOU GOT AGAINST RADIO CARS?" 

5382 IFPR+PR<I)>5THENPRINT"a?OME ON NOW. 

NO ONE NEEDS MORE THAN 5":GOTO5380 
5385 PRINT"YOU NOW HAVE"PR(I>+PR"RAD IO C 
ARS ,"N$<I> 

5390 P2<I)=P2(I)-PR * 10000 
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5400 IF P£ <1X0 THEN PRINT"3M0T ENOUGH M 
ONEY ! •' :P£( I > =P2 < I )+PR * 10000 : GOTO5380 
5402 PR <I)=PR CI)+PR 

5405 PRINTU7$"HY0U HAVE" P2 < I )"POUNDS LEF 
T 

54 10 PRINTU3*"----- 


54 15 PR I NTU5$ " BUON MUCH TO SPEND ON PROM 
OTION": INPUT PM 

5420 P2<I>=P2<I)-PM:IF P2<I)<0THENPRINT" 
AMO CASH ! "s P2 <I)=P2 <I)+PM:G0T05415 
5800 PRINTU3$"^«^^^*-«—— 

II 

5605 PRTNTUF$"BMDK. THANKYOU VERY MUCH " 
N$< I > 

5700 P1=PM*<1+RND <1>)+PR< I > * 10000* <£+RNO 
(1))+20000*RND <1) 

5710 FOR J = 0TO22:1F BN(J)OI THEN 5750 
5720 PP =ABS < R-BM < J)) 

5730 P1=P1+BP(J>/10*<100-PP> 

5750 NEXT J 

5800 PRINTU7$"SY0UR PREVIOUS AUDIENCE FI 
GURES NERE ."PICI)"^." 

5810 PRINTUU*"---— 


5815 P1 = INT < P1/10000 >/10 

5820 PRINTU5$"HrOUR CURRENT AUDIENCE FIG 

URES ARE. "P\ U Y." 

5830 IF P1>0 THEN 5845 

5835 PR INTUII "Piai ’M AFRA ID THAT NO ONE A 
PPEARS TO LISTEN" ; 

5838 PRI NT" JfTO YOUR STATION AND THEREFOR 
E YOU HAVE 

5840 PRINT"SPEEN REMOVED FROM YOUR JOB! 

n 

584 1 PR I NT " JSQSRAD 10 "S*<I>" IS OFF THE AI 
R ! " 

5842 PR I NT " g|30RR Y ABOUT THAT ,BUT THAT ' S 
SHOW BIZ ! 

5843 S$< I > = " *’ :N*< I > = " “ : P2 < I ) = 100000! PI < I 
) =0 :GOTO5900 

5845 P1<I ) =P1 

5850 PRINTUU*"--—- 
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5855 PRINTU5$" STADIO ”S$(I)" IS STILL ON 
AIR..." 

5860 PR I NT " HY'OUR MONEY AVA ILABLE ISs"P2< 
I)-POUNDS 

5870 PR INT"H. . . WE SHALL HAVE TO SEE UIHAT 
HAPPENS TO 

5880 PR I NT " HYOUR REVENUE UIHEN THE NEW FI 
GURES ARE 

5885 PRINT"HTAKEN INTO ACCOUNT 

5800 PRINTU3*"aEPRESS ANY KEY TO RETURN 

TO THE MAP" 

5910 GET A$:IF A$="" THEN 5910 
5920 RETURN 

30000 PRINT"a 

Il • 

r 

300 10 FOR I=0TO1 :PRINT" 

“; :NEXT I:RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US =1024 :UC =55296 :UG =53281 

63904 UB = 53280 :UV=54296 :UA=54277 :UD=5427 
8 : UH=54273:UL = 54272 

63905 UW=54276:U0=0:U0$= ,, B" :U1 = 1 :Ul$="a" 
:U2=2:U2$="3" 

63906 U3 = 5 : U3$= "SI" : U4=6 : U4*= "3" : U5 = 8 : U5$ 

... =9 : U6$ = 

63910 U7= 10:U7*= "O" : U8 = 13 : U8$= "II" :U9=14: 
U9*="a":UU=4:UU$="a" 

63915 UR=12 :URS="a":UE = 7:UE$="O":UF = 11:U 
F$ ="H"s RETURN 
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Scegliete il momento e poi affondate risoluti e rapidi la lama della vo¬ 
stra spada fra le fauci aperte dell orrento mostro che vi sta davanti, 
purtroppo è finito il tempo degli uccisori di draghi, questi problemi 
non ci assillano più, però con questo gioco avete la possibilità, per 
qualche minuto, di essere un eroe d'altri tempi. È molto semplice. Non 
vi si richiede altro che di sopravvivere e di raggiungere il punteggio 
più alto prima che il mostro vi faccia fuori. Forse il Gatto vampiro riu- 
scirà ad assalirvi alla giugulare. Chi può dirlo? Presto, un balzo in avanti 
e affondate la lama ... mancato ... indietro a sinistra rapidi, mancato 
ancora ... ahh! ... 


10 rem..SLIORDSMAN.LIALUYN 

12 GOSUB7000 

30 DD$<0>="YOU ARE UNHARMED AND RARING T 
0 GO . . . ! 

31 DD$<l> = "YOU ARE SLIGHTLY WOUNDED NOUI. 
BE BRAVE ! " 

32 DD$ < YOU HAVE RECE IVED MULTIPLE LA 

CERATI0N3," 

33 DD*<3 > = ” IT 1 S TOUR LAST CHANCE NOLI. GO 
OD LUCK. . . “ 

100 DIM VL( 8 > 

110 FORJ=0TO8:READVL(J):NEXTJ 

120 DATA 3,4,3,4,2,5,2,2,4 

150 RFM VK =NUMBER OF DEAD MONSTERS 

ISO REM UK = LJOUNDED LEVEL 

170 REM PK=POINTS SCORED 

1S0 VK=0:WK=0:PK=0 

230 DIM V*<8> 

2i0 FC-R K =0TO8 ! READ V*<K>:NEXT 
220 DATA "GANGRENE GOAT","NORTH-SEA BOIL 
VAMP IRE CAT" 

230 DATA "POLIT1CAL WORM","MAD METER-MA I 
D " , " SCHOOL SPINACH" 

240 DATA "DANDRUFFED BEAR","RAMPANT BANK 
ER" , "PICKLED ALBATROSS" 

300 PRINTUE*; "jaSWORDSMAN" 

310 PRINTU5$/"SIN THIS GAME, YOU ARE TO 
BE PUT AGAINST" 

320 PRINT"A HORDE OF TERRIFYING MONSTERS 
. YOU ARE" 
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330 PRINT "ARMED ONLY WITH A SWORD..." 


340 PR I NT "gJYOUR CONTROLS 

ARE 34 

MOVE 

TO 

THE LEFT" 




350 PRINT" 

33 

MOVE 

TO 

THE RIGHT" 




360 PRINT" 

35 

LUNGE 

WI 


TH SUORD" 

370 PR INT“JJTHERE ARE TWO SUJORD POSITIONS 

380 PRINT"THE FIRST TIME YOU PRESS ’5‘, 
YOU PUT 

390 PR INT "TOUR SWORD 1 ON-GUARD'. THE SEC 

oro 

400 PRINT"KEY-PRESS COMMITS YOU TO A SUO 
RD THRUST" 

4 10 PRINT"HSOME MONSTERS ARE HARDER TO K 
ILL THAN 

420 PRINT"OTHERS. THE DREADED 'SCHOOL SP 
INACH' IS" 

430 PRI NT"PARTICULARLY NASTY TO MEET. . . . 

Il 

• 

440 PRINT"YOU GET MORE POINTS IF YOU KIL 
L THE" 

450 PRINT"MONSTER FURTHER TO THE RIGHT 0 
F THE " 

460 PRINT"SCREEN. EACH TIME YOU WIN, YOU 
R WOUNDS 

470 PRINT"ARE SOOTHED JUST A LITTLE." 

480 PRINT" IF YOU ARE WOUNDED MORE THAN 
4 TIMES" 

490 PRINT"THEN VoU ARE DEFINITELY DEA 
D ! " 

495 PR I NT " iPRESS ANY KEYST’ 

496 GETA*:IFA$ =""THEN496 
500 0IM D$<1,4),M$<1,4,8> 

510 FOR J =0TO1s FOR I = 1T04:READ D$<J,I> 
530 NEXT I,J 

550 REM THESE DATA LINES CONTA IN COMMODO 
RE 64 COLUOR CODES 

555 REM SEE LINES 7000- FOR DETAILS 

600 data " ano ai sani iOm* sili >> " 

602 DATA 

604 DATA "300^ /ISIM < -3*» - SiaiK " 

606 data "gooy sani —iiaaaai >■ 

610 DATA "a Siili filai 
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612 data "a ami «i " 

614 DATA "a «HI «I " 

616 data "a «li amili 

650 FOR K =0TO8:FOR J=0TOl:FOR I = 1T04 
660 READ M$<J,I,K> 

680 NEXT I , J , K 

700 DATA "aa > HIU ■ f|HB| > » 

702 DATA "a • aill UHIhW" 

704 data n a ama inaili v 
706 data 11 

7 10 DATA n a an «M 
712 data ■ «ai ami 

7 14 DATA " «| «ai 

716 DATA "S «Bl «Bl " 

720 DATA H R***«Bfll*!asa:BsK*«BBBI*^a W 
«aan ■ 

722 DATA ” U* * *«flBI*3sa: ■sR*«UBI*'Ba ■ 

r* " 

724 DATA " SU* * *«BBI*3«3: 9*R* " 

726 DATA " U* * *SlBBBI*3«d: i«R*aBUII^ ■ 

V* " 

730 DATA " £IBBBI «BBBI «Bl 11 

732 DATA ’ffl SUBBI SBHBBI 

734 DATA "aa SUBBI 

736 DATA "a «BAI aUBI 

740 DATA " BSElS^ SBBK " 

742 DATA 11 IftBH - f ■■ | " 

744 DATA " US^-MaiW 
746 DATA " BBBBI//" 

750 DATA "aS EBBI " 

752 DATA "SS Sflfll 

754 DATA "B «I " 

756 DATA "H «Bl 

760 DATA "aU«IIO 0«fl|00 O" 

762 DATA "BU«U OOSBUBIOO □" 

764 DATA H «l oo oSBBBBBBHsilo o" 

766 DATA "asll o aiBHBH«Hoo OO" 

770 DATA "aa «Bl 

772 DATA "g & «flfll 

774 DATA "Sia «BBBBI 

776 DATA "BB SBBBBBBI 

780 DATA “ ©TTTTTS1BBBBIT3*. •SS«flflBI$a v —* 
■$«Ufll< < > > " 

782 DATA "&£$$$$«flBBB$a«. SB££1BBUI$£I - 
B$SB BBBBI X X " 
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784 data " n$$$$$uuBBi$a«. •■$uBBBBi$a,—, 

panni < > > " 

788 DATA 0$$$Ì$ìHIIIPdl. iPOIinPd + 

panni x x - 


730 data " anni aulii un 



808 data "ummuABiunfriiiBBisttair 1 
806 data -un laiiiii nuBunuKUBur 

810 DATA n «ini uni 

sia data " ani ara ui " 

8 14 DATA " UHI UHI UBI 

816 DAT* " UBBI UBI UBI " 

620 DATA " E3*Ooog*. UBHITaUI r3B I.BHK 

> “ 

822 DATA "0*00oS+UBBrV' BUBBI X W UBI 

ll< < " 

624 DATA " n*j3oog*UUI^UBBI ^OA fr UM 

< " 

826 DATA " Q* ao og* UBBI^UUI 'U* PUHI> > 

H 

830 DATA " UBHI UBBI UBU 

832 DATA " UBBI UBBBBI UBU 
834 DATA " UBBI UBBI UBHI 

836 DATA " UBBI UBAI UBBI 

840 DATA "U»onUBI-a: B-UBfr^ " 

842 DATA "ODoOUBI ,-9= UHI >* 

844- DATA " UJoHUBI l5l : 9 UHK >" 

846 DATA "tìQuOUBUI BUUI \" 

850 DATA UBI UBI " 

852 DATA "H UBI UBBI 

85 4 DATA “£ UBI UHI 

856 DATA "M UBI UBU 

850 DATA "3 W BPrUBHI«a —P-UHI ' " 

862 data ,, aa»a--g^UBH > 1 
@64 data " 3 St^ \P-uuna w 

866 DATA ''assisa--■«-UHI 1 ' 
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370 data " ami ani u 

372 DATA "S SHII 

874 DATA "H mil 

376 DATA " SS SII “ 

1000 REM START OF GAME 
1005 PRINT"J" 

1 100 GOSUB4000 
1300 GOTO 1000 

£750 FOR DL=1TO£000:NEXT DL: RETURN 
£760 PR I NTU6$ " aaBnMMIM THE "V$<M 

Z >" CUT YOU UP! “ 

£765 FOR I = ITO 1500 :NEXTI: RETURN 
£800 REM CLEAR TOP SCREEN 

£802 PRINT"a 

n 

2805 FOR T=1TO10 
2810 PRINT" 

Il ■ 

* 

£815 NEXT 
£817 PRINT"3" 

2820 RETURN 
£850 MR =MZ 

2960 MZ = INT <RND <1>*9) : IFMZ =MRTHEN£960 
£970 RETURN 

4000 GOSUB£950 s REM MONSTER BATTLE 

4001 POKEUG,U0:POKEUB,U£:PRINTU6*; 

4002 PR I NT " gHffiraSHHSHKl 

M 

4003 PR 1 NT "aj^SEISffi9BraSS9 

II 

4004 PR I NT " aaSHMeKMSSeEM 

II 

4005 PR I NT " IT'S THE " ; V 

$ ( MZ > ; " !" 

4006 PR1NTUU»; (DEGREE OF 

DIFFICULTY TO KILL = "VL <MZ)“)" 

4010 M7 =4 : 07 =£:M8 =INT(RND <1>*6+28):D8=15 
:M6 = 4:D6 = 2 s M9=M8!D9 = D8 

40 15 PR INTU5$; "gT'TAB <££ ) "TOTAL P0INTS"PK 
4020 GET A$ 

4025 IF A$="4" THEN D8 = 08-1 :D7=1 : IF D8<4 
THEN D8 =4 

4030 IF A$="6" THEN D8=D8 +1 : D7=2 : IF D8 >3 
5 THEN D8=35 
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4035 IF A$="5" THEN D7=D7+l:IF D7>3 THEN 
07=4 :D8 = DS+1s IF D8>35 THEN D8=35 

4038 IF A*="5" ANO D7=£ THEN D7 = 3 

4037 PRINT n aSBBBSa"TAB<D3>D$< 1 ,D6> 

4038 PR INT"aBBB8BW"TAB<D8 )D$<0 ,D7 ) 

4038 D3 = D8:D6 =D7 

4040 IF D7 =4 THEN 4080 
4050 GOTO4085 
4060 G7 =US + £3£ +D8 

406£ PRINT" ai«MlM "TftB(M3)M$(0 ,M6 ,MZ > 

4365 FOR 17 =0TO1 

4068 IF PEEK<Q7+I7> = 160 OR PEEK < Q7 + 17) =8 

I THEN 4090 

4070 POKE Q7 +17,4£ 

407£ NEXT 17 
408£ D7=£ 

4085 M7=M7+1 : IFM7=5THENM7=1 

4036 IF RND-:i>>.35 THEN M8=M8-1 

4087 PR I NT " anmaMM " TAB < M9 ) < 1 , M6 , MZ > 

4033 PR INT" efflflMUflgl " TAB ■:M8 >MS(0 ,M7 .MZ > : IF 
M3<D8+1 THEN 4100 

4089 M9=M8:M6=M7:GOTO40£0 

4030 PRINTIIfiì; " taaMBMgPBlBMBIBIKI /JE L L DO NE ! YO 
U GOT THE "V$ < MZ) 

4 391 P5 = INT ( VL <MZ > *D3 > : VK. =VK +1 : UK =UIK - 1 : I 
FUJK < 0THENUIK 3 0 

403£ PR INTUU$; "^'O INTS FOR K ILL : "F'5 : F’K=P 
K + P5:GOSUB3750 
4033 GOSUB£300 

4094 GET 0 $:IF D$<>"" THEN 4394 
4395 RETURN 
4 100 UJK = UIK + 1 

410£ IF WK<4THENPRINTU5$; "9TRY AGA IN...” 
:GOSUB£760:GOSUB£800:GOTO4001 
4 105 PRINTU7S; "HÙMStì'NFOR I = 1 T05 : PR INTTA 
B( I *4 >"OH DEAR 

4 107 POKEUB,I :FORJ =1TO£00;NEXTJ s NEXTI 
4 110 PRINTU5$; "CJAAAAAAAAAAARGH ! " 

4 1£0 PRINT" flANOTHER HERO BITES THE DUST. 

II 

4 1 £5 PR INTUBA; "gJYOU K ILLED " VK "MONSTERS 9 
CORING"PK"PT3‘ 

4130 PPINT"d 

> a" 


ANOTHER 30? 


Y/N 
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4 132 GETA*: IFA3K > " THEN4 1 32 
4 133 GETA3r: IFA£=" "THEN4 133 

4134 IFA$=-'Y"THENRUN 

4135 END 

7000 REM *#*)M.*********)t-*** ********** 
7005 REM CONLY USE THESE CGLOURS; 

70. J0 U0=0 : U0$= : REM BLACK 

7020 U1= !ìU1*=’\S":REM UH ITE 
7330 U2-£5 U£$-" 3" : REM DARK RED 
7040 U3=5:U3$= :, H" : REM GREEN 
7050 U4 -6 ' U4$ ="3"! REM DARK BLUE 
7060 U5 --S : U5*=CHR*< 129 > : REM GRANGE 
7070 US =9 J US$= " B” : REM BROWN 
7033 U7M0:U7$-- ,, O" :RLM PINK 
7330 U3=13 J U3$="K": REM LIGHT GREEN 
7 1O0 U9---14 : U9£= : REM LIGHT BLUE 

7113 LHJ=4:UU$="«" :REM FURPLE 
7 120 UR =12: UR$ = " kJ' 1 : REM LIGHT GRE Y 
7 130 UE=7:UE*= 1 fiT : REM LIGHT YELLCW 
7 140 UF = 1 1 :UF$= "B’ - :REM DARK GREY 
7230 REM 5CREEN ' POKE ' CGDES FCR 64. 
7210 U3=1024:REM SCREEN POKE CHARACTER 
7220 UC=55236:REM SCREEN POKE CDLGUR 
7230 UG=53281:REM BACKGROUND COLGUR 
7240 UB =53280 : REM SCREEN SORGER COLOUR 
7250 RETURN 
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Otto cavalli in gara 

Ecco un altro gioco di sapore equestre, che richiede però più abilità 
rei precedente. Qui ci sono infatti otto cavalli e due cose sono 
cestinate a succedere una volta che avete deciso quale cavalcare, in- 
- anzitutto tutti gli altri cavalli cominceranno subito a galoppare la- 
■: andovi a destreggiarvi faticosamente ad una velocità più bassa. Sco- 
rete presto che il vostro cavallo è una di quelle creature che si met¬ 
ano a fare sul serio solo in vista del traguardo e solo allora andrete 
3 2 una velocità pari al doppio di quella di qualsiasi altra creatura su 
cjattro gambe. 

_= seconda difficoltà sta nel fatto che gli altri cavalli hanno un deside- 
'o spasmodico (previsto dal programma) di buttarvi fuori di pista. Essi 
Tenderanno a chiudersi davanti a voi e a spingervi di lato. Nessuno 
cjò aiutarvi in questa dannata corsa e tutto ciò che vi resta è augurar- 
di trovare spazio sufficiente sulla pista e di essere tanto veloci da 
evitare i pericoli creati dai vostri concorrenti. 

Tutti i cavalli che si scontrano l'uno con l'altro vengono spinti a caso 
seralmente e indietro, perdendo così velocità preziosa. Bene, siete 
pronti? Ora siete agli ordini dello starter... 


1 REM NE:WMARKET***UIALUIYN***64 VERSIONI*** 

2 REM HORSERACE GAME 
20 GOSUB2000 

50 GOSUB20000 

75 REM TURN SCREEN BORDER TO GREY 
7B POKE53280,11 

80 REM TURN SCREEN BACKGROUND TO UIHITE 

81 POKE53281,1 

85 REM TURN COLLISION SPRITE DETECTOR TO 
ZERO 

86 POKEV+30,0 
90 PRINT-J* 

92 PRINT"a"; : FORI=0TO7:PRINTSPRINTSPRINT 
"ir I + 1sNEXTI 

95 FORI=0TO24SPOKE1024+31+I*40,90sP0KE55 
296+31+1*40,13sNEXTI 

96 PRINT“HCONTROLS: 1=UP A=DOWN " ; 

97 INPUT"iJYOUR HORSE 1-8 " ; N 

98 IFN<10RN>8THEN96 

99 N=N-1 

100 K =PEEK <197 > s M=INT(RND < 1 )*8)s IFK=64TH 
ENK=10 + INT <RND(1)*2>*46sGOTO 103 
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101 IFK=560RK=10THENM*N:GOTO 105 

102 GOTO 100 

103 IFM=NTHEN105 

104 IFX <M)>X <N>-20ANDABS(Y<M>-Y<N>X60TH 
ENK =*56 : IFYCN) >Y<M>THENK= 10 

105 IFK=56THENY<M)=Y<M>-3:X<M)=X<M)-1:IF 
Y<M> <50THENY<M)=50 

106 IFK =10THENY <M)=Y<M)+3:X(M)=X(M> - 1 : 1F 
Y<M>>225THENY<M> =225 

107 IFX(M)<30THENX(M)=30 

108 FORI=0TO7 s J =INT<RND <1>*4 + 1>: IFI<>NTH 
ENI 12 

109 IFC =0THENJ =INT < J* .5): IFXCN)>72THENC = 
1 

110 IFC * 1THENPOKE53280,2 !C =2 

111 IFC =2THENJ =J *2 

112 X< I >=X<I>+J» IFX<I>>255THENX <I)=255 

113 IFLI=0THEN125 

114 IFUJAND211 THEN1 16 

115 GOTO 125 

116 REM HORSE NUMBER ■I■ IN COLLISION 

117 X< I )=X< I ) - I NT (. RND ( 1 ) *5 +5 > : Y< I ) =Y< I ) + 
INT(RND <1)*17)-8 

118 IFX<I)<30THENX<I>=30 

119 IFY <I )< 50THENY <I> =50 

120 IFY <I> >225THENY <I> =225 
125 NEXTI 

150 FORI=0TO7:POKEV+I*2,X <I>:POKEV+I*2+1 

,Y< I > 

160 IFX<I> >=255THEN5000 
170 NEXTI 

200 REM SET UP CHECK FOR HORSE COLLISION 
205 W=PEEK <V+30 > 

700 GOTO 100 
999 END 

2000 REM INSTRUCTIONS 
2010 PRINT "«jaMEWMARKET" 

2020 PRINT"*IN THIS HORSE-RACE GAME, YOU 
RIDE" 

2030 PRINT"ANY HORSE FROM 1-8." 

2040 PRINT"YOU HAVE TO STEER A PATH AVO I 
DING THE" 

2050 PRI NT"OTHER HORSES SINCE ANY HORSE 
IN A" 
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2060 PR INT"COLL IS ION UIITH ANOTHER UIILL B 
E BLOCKED" 

2070 PRINT"AND FORCED SIDEWAYS AND BACKW 
ARDS." 

2080 PRINT"H'EASY 1 , YOU MIGHT SAY. . . 

2090 PRINT"fiJ3UTH YOUR HORSE IS A VERY SL 
OUJ STARTER 

2100 PRINT"AND WILL ONLY RUN AT SPEED AF 
TER THE 

2110 PRINT"SCREEN BORDER TURNS 'RED'. TH 
IS OCCURS" 

2120 PR I NT " UJHEN YOU HAVE RIDDEN A THIRD 
OF THE UJAY " 

2130 PR INT"DOWN THE TRACK SO YOU UIILL AL 
WAYS HAVE " 

2140 PRINT"OTHER HORSES IN FRONT OF YOU. 

n 

2150 PRINT"TO MAKE IT HARDER STILL, ALL 
HORSES" 

2160 PR INT"UJITH IN 20 FEET OF YOU UIILL AT 
TEMPT" 

2170 PRINT"TO BLOCK YOUR PATH OR CRASH I 
NTO YOU!“ 

2180 PRINT"gPUSH LETTER 'A* TO MOVE DOWN 
THE SCREEN" 

2190 PRINT"PUSH NUMBER '1' TO MOVE UP TH 
E SCREEN." 

2195 PRINT"BEWARE: ANY COURSE ALTERATION 
UIILL " 

2197 PRINT"ALSO REDUCE YOUR SPEED!" 

2200 PR INT" flGOOD LUCK . PRESS ANY KEY TO 
START.g" 

2210 GETA$:IFA$=""THEN2210 
2220 RETURN 
5000 REM WINNER 

5002 PRINT"9 

■ 

5003 IFI=NTHEN5007 

5005 PRINT"gUINNER....HORSE NUMBER"I + 1" 

■ 

5006 GOTO5010 

5007 PRINT" 3YOU WON! NELL DONE 

■ 

5009 REM TURN HORSE ON AND OFF 
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5010 FORO =0TO40:POKEV + 21,PEEK(V+21>-2tI 
5015 POKEV+21,PEEK( V +2 1>+2tI 
5020 NEXTQ 

5100 PRINT" fiMPflar RESS- 
5110 PRlNT"MBaSH ANY " 

5120 print" key " 

5130 GETA$:IFA$<>""THEN5130 
5140 GETA*:IFA$ =""THEN5140 
5145 POKEV +21 ,0 
5150 RUN 

20000 V = 53248 

20001 REM COMMODORE 64 HORSE SPRITE LOAD 
IMG 

20002 POKEV+21,255 

20003 PRINT-J” 

20004 FORI=0TO7 5POKE2040+I,13:NEXTI:FORI 
=0TO62:READQ:P0KE832 +I,Q:NEXTI 

20005 FORI=0TO7:Y<I>=50+I*25:X<I)=40:NEX 
TI 

20006 FORI=0TO7iREADQsPOKEV+39+I,Q 
2000? POKEV + I*2, X <I>:POKEV+ 1*2+1 ,Y< I): NE 
XTI 

200 10 DATA 0, 0, 0, 0, 0, 0, 0 , 0, 0, 0, 
0, 0, 0, 0, 0, 0 

20020 DATA 0, 0, 0, 0, 0, 0, 0, 0 , 0, 6, 
0, 0, 14, 0, 0, 28 

20030 DATA 64, 0, 58, 224, 224, 57, 248, 
63,255, 152, 31, 223, 192, 31,223,192 

20040 DATA 27, 239, 0, 40, 3, 0, 72, 2, 
128, 72, 2, 64, 144, 2, 32 

20045 REM SPRITE COLOURS DATA 
20050 DATA 0,2,5,6,8,9,4,11 
20060 RETURN 
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-ncora una volta voi siete il presidente di una squadra di calcio di cui 
.erranno giudicate le doti manageriali alla fine della stagione. Il pro¬ 
gramma prevede informazioni sugli incontri giocati e sui goal fatti, sul- 
3 classifica, sulle partite da giocare e sulla tabella della lega tenuta co¬ 
stantemente aggiornata. Il computer calcolerà i risultati in base alle 
potenzialità delle diverse squadre, al fatto che la partita sia stata gio¬ 
cata in casa o fuori casa e ad altri fattori. 

Se le cose vanno male, il programma è fatto in modo da consentire 
r eventuale sostituzione o espulsione dei giocatori. Volete vincere il 
campionato o volete andare in serie B? Stà a voi e ai vostri ragazzi. E 
snche alle istruzione DATA che possono essere distribuite qua e là in 
sostituzione di quelle nostre che potreste anche ritenere sbagliate. 


5 REM DIVISION ONE.WALWYN 

8 GOSUBS3900 

9 UM=US+200:G=US : P5=0 

10 REM GOSUB 8000 :PRINT PLAYING FIELD 

11 REM GOSUB 10000:PLAYER CHECK,BLANK,AD 
D,MOVE. 

18 REM GOSUB 12000:BALL CHECK,BLANK, ADD, 
MOVE 

13 GOSUB20000 
15 J=0 

30 DIM TZ<15,15),T$<15), TA <15),TM<15),TD 
C15>,TT<15 >,TP<15),TF<15) 

31 REM IF TZ <15,15)=1 THEN THE FIXTURE H 
AS ALREADY BEEN PLAYED. 

32 REM TA<15),TM<15) AND TDC15) ARE THE 
DIFFERENT STRENGTHS 

33 REM IN ATTACK, MIDFIELD PLAY AND DEFE 
NCE FOR EACH TEAM. 

34 REM TT<15 1 IS THE POINTS TOTAL. 

35 FOR 1 = 1TO15 : READ T*<I>,TA<I>,TM<I),TD 
(I):NEXT I 

36 DATA "LIVERPOOL",9,6,6,"MAN UTD",S,5, 
6, " IPSLIICH " ,6,7,6, "ARSENAL" ,7,6,6 

37 DATA "STHMPTON",8,5,5,"A V ILLA " ,6,6,5 
,"NGTTM F",9,5,5,"SWANSEA“,5,6,5 
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38 DATA " UJOLVES ",5,5,5," CRYSTAL P" ,5,6,5 
,"TOTTENHAM“,8,4,6,"NORWICH",4,5,4 

39 DATA "COVENTRY",4,4,4,"LEEDS",4,3,4," 
W BROM",8,3,4 

50 FOR X = 0TO1 :FOR Y=0TO9: 0<X,Y>=Y+128-X* 
128 :NEXT Y,X 

70 FOR J =1T06 s READ XS<0,J>,YS<0,J>:NEXT 
72 FOR J = 1T06: READ XS<1,J>,YS<1,J>:NEXT 

75 DATA 1,15,8,10,8,20,15,8,15,14,15,21 

76 DATA 38,15,32,10,32,20,24,8,24,14,24, 
21 

80 GOSUB5000 

85 GO3UB6000 

100 GOSUB3000 

105 R=0 :Q=0 : TI*="000000" 

110 FOR I=0TO1 :F0RJ = 1T06'.X< I ,J)=XS< 1 ,J) : 
Y< I , J >=YS< I , J> sl'EXT J,I 

120 FOR I=0TO1 :FOR J=1T06:P0KE G+X<I,J>+ 

Y < I , J ) *40,D < I , J > 

125 NEXT J,I 

150 X2 =0 :Y2 =0 

152 X=0:Y=0:X1=19:Y1=15 

155 I=0 :J =0 

160 ZZ*="A" 

300 K=PEEK<197):GET Z$:IF K=64 THEN X=0: 

Y = 0:MP =0 : GOTO340 

301 1F Z$<>""ANDVAL<Z$><=0 THENZZ$ = Z$:GO 
TO340 

303 W=1 : I=0:PQ=ASC(ZZ*>-64: 1F K = MP THEN 
W=INT < RND(1>*S<I,PQ> > 

304 J =PQ:MP =K: IF J<0 OR J>6 THEN ZZ$="A" 
: J= 1 

305 IF K=27THEN Y=1 : X = 0 :GOTO330 
310 IF K =32THEN Y=-1 : X=0 :GOTO330 
315 IF K =56THEN X = -1 :Y = 0:GOTO330 
320 IF K =59 THEN X=1 :Y=0:GOTO330 
330 I=0 

340 FOR L=1TOW!GOSUB10000 

342 IF MM THEN MM=0:X2=INT<RND<1)*2):Y2= 
INT(RND <1>*3-1):GOTO620 
344 NEXT L 

348 PR INT"a"Q; TAB <5>T$<QX> " V "T$<RX:>" 

"R 

349 PRINT"M"TAB(32 >MIDCCTI«,4,1>- : "MID$< 
TI*,5,2> 
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350 IF MID$(TI$ / 3 / 2) = "03" THEN PRINT ,, aKIH 
TIME'S UP... M :GOTO6700 

360 PRI NT » aDflMMP LfìYER TO RE-POS ITI0N = 3"Z2 
$ 

400 REM OPPONENT MOVE 

4 10 Ul= 1 : I = 1 : V= INTCRND ( 1 ) *6+ 1 > : IF V = MV TH 
EN Ul= I NT < RND (.1 > *S < I , MV ) > 

420 I = 1 :J=V:MV=J:Y=SGN<Y1-Y<I,J)) 

422 IF V =1 AND RND< 1 )>.5 THEN Y=3GN<14-Y 
(. I , J> ) :X=i : 14 = 1 : GOTO430 
424 X =3GN'XI-X <I ,J ) > 

430 FOR L= ITOLO: GOSUB 10000 

4 40 IF MM THEN MM=0:X£ = -INT<RND C1)*2):Y2 
=INT(RND<1)*3-1):GOTO620 
445 NEXT L 

600 U=INT <RNO <1)*TA<N)*VJ+1) 

620 FOR L =1TGU 
650 GOSUB12000 

660 IF 2Z THEN ZZ=0:FOR I = 1TO2000:NEXT I 

:GOSUB3000: GOTO 110 

630 NEXT L 

300 GOTO300 

333 END 

5000 REM START PROCEDURE AND TEAM SET UP 
5005 PR INT "kJ" UE$; : POKEUG , U6 
5010 FOR 1 = ITO 15 
5020 PRINT I,T$\I> 

5030 NEXT I 

5040 INPUT"HSYOUR CHOICE OF TEAM";M 
5042 IFM<=0ORM>15THEN5040 
5045 T#<M) = ,, a"+T^(M> + "B" 

5050 PRINT"J 
5030 RETURN 

6000 REM MATCH DECISION 

6005 GOSUB7000 

6006 P=0: INPUT "a^HOUi MANY AUTO. RE3ULTS 
(0=MANUAL)i'';Pl : IF P1=0 THEN 6008 

6007 FOR P =1 TOP 1 

6006 IF PL = 210 THEN GOSUB7000:PRINT *tìflTH 
AT'S THE END OF THE SEASON": END 
60 10 QX = RND <1>*15+1:RX=RND<1>*15+1 
6020 IF Q%=RX OR TZ(QX,RX>=1 THEN 6010 
6025 TZ < Q’/. r RX ) = 1 : PL = PL + 1 

6023 PRINT"- 
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6030 PR I NT " MATCH # " PL " ||. " ; 

6040 PRINT" “ T^CQ/O " HOME TO "T$<RVi> 

6042 IF QX = M OR RX=M THEN 6050 
6045 IF P>0 THEN 6500 

6047 PR INT"PRESS ANY KEY" 

6048 GET A$: IF A$ = " « THEN 6048 

6049 GOTO6500 

6050 PRINT "DO YOU UJISH TO PLAY? < Y/N ) " 
6060 GET A*:IF A$=“" THEN 6060 

6070 IF A $ = "Y 11 THEN 6 100 

6080 GOTO 6500 

6100 REM SET UP ME TO PLAY 

6105 J=QX:VJ=2:VM=1:IF QX=M THEN J=R*:VM 
=2 s V J = 1 

6106 N=J 

6110 S < 1 ,1>=TD<J >*VJ s S <1,2)=TM < J)*VJ:S <1 
,3)=TM( J )*VJ 

6115 SCI,6>=TA<J>*VJ:S<1,5)=TA(J)*VJ:S<1 
,4>=TA<J>*VJ 

6120 S <0,1 )= TD <M> *VM:S <0,2)= TM(M> *VM:S <0 
,3>=TM<M>*VM 

6125 S<0,6>=TA<M>*VM:S<0.5)=TA(M)*VM:S(0 

,4)=TA( M>* VM 

6180 GOTO 100 

6500 REM MATCH DECIDED 

6510 S‘<=RND< 1 >*20+1 :T*=RND< 1 > *20+1 s U%=RN 

D< 1 >*20 + 1 

6520 S = 0 :T = 0:U = 0 

6530 Q=TA<QX)-TM(Ry.>+SX-TD<RX>+UX./2.5 
6540 R = TA<R^>-TM<QJO +TX-TD(Q/O 
6550 Q = INT < Q/5 >:R =INT(R/5 > 

6555 IF Q<1 THEN Q=0 

6556 IF R <1 THEN R=0 

6570 PR I NT " B" T$( QV. ) " . . . "Q , T$ (. R'/. ) " . . . "R 

6578 TP <Q%)=TP(Q Z.) + 1 : TP(RIO =TP(RIO + 1 : TF < 

QV. > =TF ( O.Z. > +Q : TF (RIO =TF < RZ. > +R 

6580 IF Q >R THEN TT<QIO =TT(QIO +3 

6584 IF R >Q THEN TT(RIO =TT ( RIO+3 

6586 IF R =Q THEN TT<QIO =TT(QIO + 1 : TT(RIO = 

TT(RIO + 1 

6588 IFTT(QIO >P5THENP5=TT <QIO 
6539 IFTT(RIO >P5THENP5=TT(RIO 
6590 IF P THEN 6598 

6595 PR INT"gFRESS ANY KEY L1HEN READY" 
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6596 GET Pi*: IF A*=""THEN 6596 

6597 GOTO6600 

6598 NEXT P : PR INT"H2PRESS ANY KEY WHEN R 
EADY " 

6599 GET Pi*: IF P»*=" "THEN 6599 

6600 GOTO6000 

6700 FORI=1TO3000:NEXTI 
6705 POKEUG,U6:PR1NTU7* 

6710 PRINT"JIF YOU HAD LET ME DECIDE THE 
MATCH , " 

6715 PRINT"THE SCORE WOULD HAVE BEEN.... 

Il 

6720 QQ =TA <QX> -TM(RX) +SX-TD <R7.) +Uy./2.5 
6730 RR = TA < R*/. ) -TM < Q*/. > + T*/.- TD < Q X. > 

6740 QQ =INT < QQ/5>:RR =INT(RRX5) 

6750 IF QQ / 1 THEN GQ=0 
6760 IF RR<1 THEN RR=0 

6770 PRINTT*<QX> "... "QQ ,T*<RX) "... "RR 

6775 IF Q =QQ AND R =RR THEN PRINT”S4HICH 
IS EXACTLY RIGHT !":G0T06578 

6776 PRINT"fiEPRESS ANY KEY TO CONTINUE" 

6777 GETA*: IFA*< >""THEN6777 

6778 GETA*:IFA*=""THEN6778 

6780 PRINT"H...BUT AS IT IS , THE SCORE 
IS. . . 

6790 GOTO6570 

7000 REM TABLE DISPLAY 

7003 PRINT"J";U3*; :P0KEUG,U6 

7005 PRINT"TEAM"TAB(13)"P"TAB <17 >"F"TAB( 
20 ) "PTS " ; TAB <27 ) "tf'IATCHES LEFT " 

7006 PRINT"-"TAB 

(27)”aT0 PLAY"210-PL 

7008 PRINTU7*; 

7010 FOR J=<P5+1>TO0STEP -1 

7020 FOR1=1TO15 

7030 IF TT<I)=J THEN 7100 

7040 NEXT I 

7050 NEXT J 

7060 RETURN 

7 100 PRINTT*<I>:TAB <12 > TP <I>;TAB <16)TF <I 
);TAB<20)TT<I) 

7150 GOTO 7040 

8000 POKEUG ,U0 : PR INT" k iBHSSaa ,, U4*; : POKEUG 
.. U3 


282 Serie A 


3010 FORI=0TO39:POKEUM+1,10£:P0KEUM+I+76 
0,102 :NEXT 

3020 FORI = ITO 13 :POKEUM+I*40,£30 :POKEUM + 3 
3+40*1,£30 :NEXT 

v- 030 FOR I =8T0 1 1 : POKEUM+ I *40,58 : POKEUM + 39 
+40*1,58:NEXT:RETURN 

10000 A =X <I, J ) + Y <I,J)*4 0 

10001 IF PEEK<US+A+X+Y*40>= 42 THEN 16000 

10002 IF PEEK<US+A+X+Y*40)<>32 THEN RETU 
RN 

10005 IF A=0 THEN A=20000 

10010 HA = 32 

10020 FOKE US+A,AA 

10025 X(I,J)=x(I,J)+X:Y<I,J)= y(i,j)+y 
10030 AA =D <I,J) 

10040 A=X<I,J>+Y(I,J)*40 
10045 IF A =0 THEN A=£0000 
10050 POKE US + A,AA 
10100 RETURN 

12000 K =PEEK(G +X1+X2 + <Y1+Y2)*40) 

12002 IF K =32 THEN 12020 
12004 IF K =58 THEN 12200 

12006 IF K=230 THEN X2 =-X2: GOTO 12000 

12003 IF K = 102 THEN Y£ = -Y£: GOTO 1£000 

12011 SX=RND(1)*3-1 

12012 TX=RND <1)*2 : IF TX=0 THEN X2 = -X£:Y2 
= S%:GOTO 12000: 

12014 Y2 = -Y2!X2=S*/.: GOTO 12000 

12020 POKE G+X1+Y1*40,32 

12025 X1=X1+X2:Y1=Y1+Y2 

12050 POKE G+X1+Y1*40,42 

12100 RETURN 

12200 REM GOAL 

12230 POKE US+X1+Y1*40,3£ 

12240 X 1 =X 1 +X2 : Y1 = Y1 + Y2 

12250 POKE US+X1+Y1*40,42 

12251 FRI NT " agri " : 

12252 FORK8=1TO17:POKEUB,U0:PRINTTAB < K8 * 

2 >U2$; "GOAL ! " 

12254 POKEUB,U9:NEXTK9 
12260 IF XI<3 AND M=QX THEN R=R+1 
12265 IF XI>36 AND M=QX THEN Q=Q+1 
12270 IF XI<3 AND M=RX THEN Q=Q+1 
12275 IF XI>36 AND M=RX THEN R=R+1 
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12230 ZZ = 1 
12293 RETURN 

16000 U=INT<RND< 1 >*S< I > 

16005 MM=1 
16010 RETURN 

20000 POKEUG,UF:PRINTUE$;"L33IVISION ONE" 
200 10 PRINTU7S; "SfYOU WILL BE ASKED TO CH 
0CI5E A TEAM TO 

20020 PRINT"LEAD THROUGHOUT ONE SEASON. 
20030 PR INT 11 THERE ARE 210 MATCHES IN A 
LL - 

20035 PRINT"AND EACH TEAM PLAYS 28 MATCH 
ES SINCE 

20040 PR INT"EVERYONE PLAYS EVERYONE TWIC 
E - HOME & 

20050 PRINT"AWAY. YOU CAN EITHER PLAY A 
MATCH OR 

20060 PRINT"LET THE MACHINE CALCULATE TH 
E RESULT. 

20070 PR INT"gj LIHEN THE NUM6ER OF AUTOMA 
TIC RESULTS 

20030 PR I NT " IS ENDED , A LEAGUE l'ABLE IS 
DRAL1N. 

20082 PRINT”flAS THE FIXTURES PROGRESS, Y 
OU WILL SEE" 

20084 PRINT"HOUI MANY GAMES EACH TEAM HAS 
PLAYED, 

2003S FRI NT " HOL1 MANY 60ALS EACH TEAM HAS 
SCORED" 

20037 PR INT "AND HOW MANY POINTS FOR EACH 
TEAM." 

20088 PRINT"<3 FOR A WIN, 1 FOR A DRAW)" 

20091 PRINT"W'I.B. WHEN YOU GET NEAR THE 
END OF THE" 

20092 PRINT"SEASON, THERE MAY BE A SLIGH 
T PAUSE" 

20093 PRINT"BETWEEN MATCHES AS THE COMPU 
TER HUNTS" 

20094 PRINT"FOR THE NEXT FIXTURE." 

20096 PR INT"j^RESS ANY KEYH" 

20097 GET A*:IF A$="" THEN 20097 

20100 PRINT"JIF YOU DECIDE TO PLAY A MAT 
CH 

20110 PRINT"THEN YOU MAY RE-POSITION YOU 
R TEAM AS 
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20120 PRINT"THEY PLAY. ONLY SIX FOOTBALL 
RS ARE 

20130 PR INT M SHOUJN IN EACH TEAM CLETTERS 
A-F) . M 

20132 PRINT"YOUR TEAM ALWAYS PLAYS FROM 
LEFT TO 

20134 PRINT"RIGHT IN THE -DARK STRIP 1 ." 
20136 PRINT”MYOU MAY RE-POSITION PLAYERS 
ANY TIME IN“ 

20140 PRINT“THE GAME BUT YOU HAVE NO CON 
TROL OVER" 

20150 PR INT"UJHERE THEY KICK THE BALL! TH 
IS DEPENDS“ 

20160 PR I NT 11 UPON THE VARIOUS STRENGTHS 0 
F ATTACK" 

20170 PRINT"AND DEFENCE. IT IS QUITE USU 
AL FOR“ 

20172 PR INT " A TEAM TO SCORE AN 1 OLIN GOAL 

I II 

• a • a 

20177 PR INT "ITTHE BALL MOVES FURTHER AND 
FASTER U1HEN " 

20179 PR INT "THE MATCH IS ' ALIAY 1 FROM HOM 
E. 11 

20182 PRINT"MTHE DURATION OF EACH MATCH 
IS 3 MINS." 

20184 PRINT"HOLD DOWN THE LETTER OF YOUR 
PLAYER" 

20185 PRINT"AND WAIT FOR THE LETTER TO B 
E DISPLAYED" 

20186 PR I NT " NEXT TO THE PLAYER TO BE RE 
-POS ITIQNED. " 

20187 PRINT"THEN PRESS *1* AND ‘2 1 FOR L 
EFT & RIGHT" 

20188 PRINT" AND KEYS '8' AND ’9' FOR D 
OWN AND UP. " 

20189 PRINT"HOLD THE KEY DOWN FOR RANOOM 
MULTI -MOVE . 11 ; 

20194 F‘R INT " flPRESS ANY KFYM" 

20195 GET A$: IF A$="" THEN 20195 
20197 RETURN 

63900 REM COMMODORE 64 CLR/SOUND CODES 
63902 US = 1024 :UC=55296:UG=53281 
63904 UB=53280 :UV = 54296 :UA = 54277 :UD = 5427 
8 : UH =54273 :UL = 54272 
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639(55 Ul*J=54276 : U0=0 : U0$= : U 1 = 1 s U 1$= "3" 

:U£=2!U2$ = "3" 

63906 U3 = 5 : U3$ = "II" :U4 =6 s U4$ = "3" : U5 = 8 : U5* 
="":U6=9:U6$="■" 

639 10 U7 = 10 : U7$= "O" : U8 = 13 : U8$ = "il" : U9 = 14 : 
U9$="U":UU =4 :UU$="a" 

639 15 UR=12:UR$=“y":UE=7 :UE$="O":UF = 11 :U 
F*="H": RETURN 
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Lassù nel blu del cielo, voi e il vostro nemico state duellando al di so¬ 
pra delle trincee. Vi abbattete su di lui, vi aggrappate alla sua ala, lo 
prendete, ignaro, da sotto, con la vostra infallibile mitragliatrice Brow¬ 
ning. Un sano divertimento, ma fate attenzione che lo schermo ruota 
intorno a se stesso! 

1 REM *** SOLO DOG-FIGHT *** 

2 REM#**64 VERSION**# 

5 P1=0:P2=0:Q1=0:Q2=0 : A=0 :AA=0 
10 GOSUB9000 

15 POKE808,£25:REM DISABLE RUN/STOP KEY: 

REM THIS LINE FOR TESTING 
20 GOSUB8000 
30 GOSUB7500 

900 A=1:AA=1:PRINT"J n :POKE53280,14:P0KE5 

328 1,14 :G0SUB7100 

1000 REM MA IN LOOP 

1005 IF (PEEK (53278)=3)THENGOSUB4000 

1007 POKES + 18,0 

1010 P0KE54272,255-P1 :P0KE54274,255-P1 
1015 P0KE54279,255-Q1:P0KE54281,255-Q1 
1020 POKE2040 , 191+A :P0KE53248,P2+256*(P£ 

>255):POKES3249,P1 

1025 IFP2>255THENP0KE53264,PEEK <53264>OR 
1 : GOTO 1030 

1027 P0KE53264,PEEK(53264)AND254 
1030 POKE2041,191+ AA 

1040 POKE53250,Q£ +256*(Q2>£55):P0KE53251 
,Q1 

1041 IFQ2>255THENPQKE53264,PEEK(53264)OR 
2:GOTO 1050 

1042 P0KE53264,PEEK(53264)AND253 
1045 IF(PEEK(53278)=3)THENGOSUB4000 
1050 KY = PEEK(653): IFKY=1ANDG =1THENF = 1 
1055 K2=PEEK(197): IFK2=5ANDG = -1THENF=2 
1060 IFP=1THENGOSUB1500 

1065 IFF >0THENGOSUB£000:KY=0:K2=0 
10S5 AA=AA-(K£ = 4) + (K£ = 3): IFAA=0THENAA=8 
1087 IFAA=9THENAA=1 

1090 A=A-(KY = 4) + (KY = £): IFA = 0THENA = 8 
1095 IFA = 9THENA =1 
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1112 Q1=Q1+E<AA>:Q£=Q£+E<AA+8> 

1113 Pl=Pl+D<A>:P2=P2+D(A+8> 

1115 IFP1>£40THENP1=32 

1116 IFQ1>240THENQ1=32 

1117 IFP1<32THENP1=240 

1118 IFQ1<32THENQ1=240 
1160 IFP2 >360THENP2 = 24 
1170 IFP2 < 24THENP2 = 360 
1210 IFQ2 >360THENQ£ = 24 
1220 IFQ2< 24THENQ2 =360 
1230 G=-G 

1250 GOTO 1000 

1500 REM SINGLE ~!ER -N 

1505 IFRND <1)>.8THENIFABS < P1-Q1)< 70ANDAB 
S < P2-Q£>< 70THENF=2 

1510 IFRND <1> >.9THENAA =AA - 1 : IFAA = 0THENAA 
=8 

1520 IFRND <1)>.9THENAA=AA+1 : IFAA=9THENAA 
= 1 

1530 RETURN 
2000 REM FIRE 

2010 IFF =1THENX =P2!Y=P1:XX=F<A>:YY=F<A+8 
):GOTO2045 

2020 X =Q£ : Y=Q 1 i XX =G <AA): YY«G <AA + 8) 

2045 FORCNT =0TO8 s POKES +18,33 
2050 IFX < 20ORX>3£0ORY< 20ORY >238THEN2200 
2055 P0KE53252,X+256*(X >255>:P0KE53253,Y 
s X = X + XX:Y=Y + YY 

2057 IFX >£55THENP0KE53264,PEEK(53264>0R4 
J GOTO2070 

2058 POKE53264 , PEEK (53264 >AND25 1 

2070 C=PEEK<53278>:IFC*6AN0F=1THENG0SUB5 
100 

2075 IFC=5ANDF=£THENGOSUB5000 
2077 PRINT"a"C 
2080 POKES +18,0 
2085 NEXTCNT 

£200 POKEV+5,0:F=0:RETURN 

3040 POKEV,P2 +256 * < P2 >255):POKEV + 1 ,P 1 

4000 REM CRASH 

40 10 L1=L1-1 :L2 = L2-1:P0KES+18,129 
4020 FORT=1T08:POKES+15,26-T 
4040 POKE2040,191+T:P1=P 1-20* <P1<230) 
4050 POKE2041,£00-T:Q1=Q1-20*(Q1<£30) 
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4055 POKEV ,P£+256* <P2 >£55 > : POKEV+ 1 ,P1': PO 
KEV *-£ , Q£ +£56 * < Q£ >£55 ) : POKEV +3 ,Q 1 
4060 NEXTT 

4 100 Q1=80 :Q£=160 :P1 = 160 :P£ = 80: A =1 : AA =1 
4110 POKEV , P2+256* <P£ >£55 >:POKEV+ 1,P1: PO 
KEV+£,Q£+£56*<Q£>£55>:P0KEV+3,Q1 
4 1 £0 C =PEEK < 53£78 > 

4 130 POKES +18,0 
4150 6CTO7100 
4900 RETURN 
5000 REM 

5010 L 1 =L1-1 
5015 POKES +18,1£9 
50£0 FORT =1T08 
5025 POKES+15,£6-T 

5030 POKEE040,191+T:P1=P1-£0*<P1<£30) 
5040 POKEV , P2+256* <P£ >£55 > :POKEV+l ,P1, 
5050 NEXTT 

5060 P 1 = 160 : P£=30 : (4= 1 

5065 POKEV+£,Q£+£56*(Q£>255>:P0KEV+3,Q1 
5070 C =PEEK < 53£78 > 

5075 POKES +18,0 
5030 GOTO7100 
5100 L£ =L£- 1 
5115 POKES + 18,1£9 
51£0 FORT =1T08 

5 1£5 POKES+15, £6-T 

5130 POKE£041,191+T:Q1=Q1-£0*<Q1<£30> 
5140 POKEV+£,Q£+£56* <Q£ >255):P0KEV+3,Q1 
5150 NEXTT 

5160 Q1=80 s Q2 =160 :ftA =1 
5170 C =PEEK < 53278) 

5175 POKES +18,0 
5180 GOTO7100 
6000 REM END 

6002 POKES +4,0 :POKES+11,0:POKES+18,0 
6005 1FL1=0ftNDL£ =0THENPRINT" MMWKM THE RE 
SULT IS A ORAW" 

60 10 IFL1=0ANDL£ >0THENPR TNT" BMHnma PLAYER 
2 IS THE VICTOR” 

6020 IFL£ =0ANDL1>0THENPRINT" MWSPWl PLAYER 
1 IS THE VICTOR" 

60£5 POKE198,0 :FORDL=1TO2000:NEXTDL 
6030 PRINT-HHN PRESS ANY KEY TO RESTART 
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G035 PRINT"M OR 'X 1 TO EXIT" 

6040 GETQQ$:IFQQ*=""THEN6040 
6045 IFQQ$="X"THENPOKE808,237 : END 
6050 RUN 

7100 IFP< >2THENPRINT“gM PLAYER LIVES "LI 
"3 COMPUTER LIVES "L£ 

7105 IFP=2THENPRINT"SMi PLAYER l.."Ll"3 
PLAYER 2.."L2 

7110 IFL1=0ORL2=0THENGOTO6000 
7500 REM -- 

7505 S =54272 :FORT=0TO£8:POKES+T,0:NEXT 
75 10 POKES+1,3 :POKES +5,9:P0KES+6,240:POK 
ES +4,97 :POKES + 2,128:POKES+3,16 
7515 POKES+8,3 :POKES + 12,9 :POKES+13,240 :P 
OKES+11,97 

7520 POKES+15,18 :POKES+19,9:POKES+20,239 
7525 POKES + 24,15 
7530 RETURN 

8000 PRINT"kA DOG-FIGHT DUEL" 

8002 PRINT" -» 

8005 PR INT"gBJTHIS GAME CAN BE PLAYED LIIT 
H ONE OR TUO PLAYERSB" 

8010 PRINT"HI .THE SINGLE PLAYER OPTION U 
ILL MATCH YOU AGAINST AIR-COMMODORE "; 
8012 PRI NT"HINDENBERG, THE DREADED FIG 

HTER ACE UHO ALREADY HAS 64 NOTCHES "; 
8014 PRINT" ON HIS JOYSTICK" 

80 15 PRINT"5Q932.THE TUO PLAYER OPTION IS 
A DUEL TO THE DEATH "; 

8017 PRINT"BETUEEN TUO YOUNG PILOTS UHO 
IN MORE PEACEFUL TIMES “ ; 

8019 PRINT "MAY LIELL BE FRIENDS" 

8020 INPUT"HaWCHOOSE YOUR PATH TO GLORY" 

; P 

8025 IFP< 10RP>£THENPRINT» rm » ; : GOTO8020 
8040 PRINT"Jl":POKE53280,1 :P0KE53281,1 
3045 PRINT" _» 

8050 PRINT" PLAYER CONTROLS 

8051 PRINT" - 

3052 PRINT:PRINT"3 PLAYER 1 3 

PLAYER 2" 

8053 PRINT" 3 - 3 - 

-- 

8055 PRINT"3 CTRL = UP 3 FI 

= UP" 
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8060 PRINT"a CBM = DOWN 3 F? 

= DOWN" 

8070 PRINT"a SHIFT = FIRE 3 F3 

= FIRE” 

8110 PRINTJPRINT:PRINT"a PLAYER 1 FLIES 
IN THE BLUE AIRCRAFT” 

81£0 PRINTsPRINT"a PLAYER 2 FLIES IN THE 
RED A IRCRAFT“ 

8130 IFP =1THENPRI NT"9 THE COMPUTER I 

S PLAYER 2" 

8150 PRINT:PRINT:PRINT :PRINT"■ PRE 

SS ANY KEY TO START ■" 

8160 GETWLJ*: IFWW$= ■ "THEN8 160 
8170 RETURN 

8999 STOP 

9000 REM READ DATA 

9030 DIMD <16),E<16>,F<16),G<16> 

9040 G =1 

9050 P1 = 160 :P2=80:Q1=80 :Q2=160:A=1:AA=1 

9070 RESTORE : FORX = 1 TO 16 

9080 READN:D<X)=N 

9090 READN:EOO=N 

9100 NEXTX:F =0 

9110 DATA©,0,-8,-8,-8,-8,-8,-8,0,0,8,8,8 
,8,8,8 

3115 DATA8,8,8,8,0,0,-8,-8,-8,-8,-8,-8,0 
,0,8,8 

9120 DATA8,8,0,-8,-8,-8,0,8,0,-8,-8,-8,0 
,8,8,6 

9125 DATA8,8,0,-8,-8,-8,0,8,0,-8,-8,-8,0 
,8,8,8 

9130 FORX=ITO 16 : READN:F(X)=N:NEXTX 
9135 FORX=ITO 16:READN:G(X)=N:NEXTX 
9150 REM READ SPRITE DATA 

9 160 V=53248 :POKE2040,192 :POKEV+21,7:POK 
EV +39,6 :POKE2041 ,192 :POKEV+40,2 
9200 FORT = 0TO51 1 :READX:POKE12288+T,X :NEX 
TT 

9290 L 1 =5 :L2 =5 

9300 FORT = 0TO63:POKE832 + T,0:NEXTT:P0KE86 
0,24:P0KE863,60 :P0KE863,60 :POKE2042,13 
9310 P0KE866,24 :POKEV+41 ,0 
9999 RETURN 

10010 REM *** SPRITE PLANE A *** 
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1001 2 DATA 0, 0, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

0 , 0 

10013 DATA 0, 0, 0 , 0 , 0 , 0 , 64, 15, 254 

, 96, 2 , 16 

10014 DATA 112, 2, 17, 112, 15, 249, 255 

, 255 255, 127, 255, 249 

10015 DATA 16, 8 , 33, 32, 63, 240, 0 , 0 , 
32, 0, 0, 48 

10016 DATA 0, 0, 72, 0, 0 , 48, 0, 0 , 0 , 

0 , 0 , 0 

10017 DATA 0, 0, 0 , 0 

10020 REM *** SPRITE PLANE B *** 

10022 DATA 0, 0, 0 , 0 , 0 , 32 , 0 , i, ie, 
0, 2 , 8 

10023 QATA 0, 5, 20, 0, 8 , 226, 0, 17, 2 

24, 0, 35, 192 

10024 DATA 0, 87, 136, 0, 143, 80, 0, 14 

, 38, 0, 28, 89 

10025 DATA 0, 26, 137, 0 , 49, 6 , 0, 98, 

0, 31, 192, 0 

10026 DATA 7, 128, 0, 3, 64, 0, 4, 64, 0 

, 0, 64, 0 

10027 DATA 0, 0, 0 , 0 

10050 REM *** SPRITE PLANE C *** 

10052 DATA 0, 248, 0, 6 , 32, 0, 6 , 32, 0 

, 6 , 112, 96 

10053 DATA 7, 246, 144, 6 , 127, 144, 6 , 

118, 96, 6 , 118, 0 

10054 DATA 6 , 118, 0 , 7, 246, 0, 6 , 126, 

0, 6 , 54, 0 

10055 DATA 0, 54, 0, 0, 48, 0, 0, 48, 0, 
0, 48, 0 

10056 DATA 0, 48, 0, 0 , 248, 0, 1 , 246, 

0, 3, 240, 0 

10057 DATA 0, 32, 0, 0 

10070 REM *** SPRITE PLANE D *** 

10072 DATA 0, 24, 0, 4, 36, 0, 8 , 36, 0, 

16, 152, 0 

10073 DATA 40, 80, 0, 70, 32, 0, 7, 80, 

0, 71, 136, 0 

10074 DATA 43, 196, 0, 17, 234, 0, 8 , 24 

0, 0, 4, 120, 0 

10075 DATA 2, 140, 0 , 1 , 6 , 0, 0, 131, 1 

12 , 0 , 1 , 128 
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10076 DATA 0, 

1 , 192 

, 0, 1, 192, 

0, 1 

, 1 

60, 0, 1, 0 





10077 DATA 0, 

0, 0, 

0 



10100 REM *** 

SPRITE 

PLANE E *** 



10102 DATA 0, 

0/ 0, 

0, 0, 0, 0, 0 

, 0, 

12 

, 0, 0 





10103 DATA 18 

, 0 , 0, 

12, 0, 0, 4, 

0, 

0, 

15, £52, 0 





10104 DATA 132, 16, 

0, 159, 255, 

£54 , 

£5 

5, 255, 255, 

159, 240, 14 



10105 DATA 136, 64, 

14, 8, 64, 6, 

127 

, 2 

40, 2, 0, 0 , 

0 - t 




10106 DATA 0, 

0, 0, 

0, 0, 0, 0, 0 

, 0, 

0, 

0, 0 





10107 DATA 0, 

0, 0, 

0 



10120 REM *** 

SPRITE 

PLANE F *** 



10122 DATA 0, 

0, 0, 

0, 2, 0, 0, £ 

, 32 

, 0 

, 2, 132 





10123 DATA 0, 

1 , £24 

, 0, 3, £40, 

96 , 

70, 

0, 144, 140, 

0 




10124 DATA 145, 88, 

0, 98, 48, 0, 

20, 

1 1 

2, 0, 10, 241 

, 0 




10125 DATA 17 

, 234, 

0 , 3, 196, 0, 

7, 

136 

, 0, 71, 16, i 

0 




10126 DATA 40 

, 160, 

0, 16, 64, 0, 

8 , 

128 

, 0 , 4, 0 , 0 





10127 DATA 0, 

0, 0, 

0 



10150 REM *** 

PLANE 

6 * * * 



10152 DATA 0, 

32, 0, 

0, 126, 0, 3 

, 124, 

0, 0, 248, 0 





10153 DATA 0, 

96, 0, 

0 , 96 , 0 , 0 , 

96, 

0, 

0, 96, 0 





10154 DATA 3, 

96, 0, 

3 , 99 , 0 , 3, 

243 

, 0 

, 3, 127, 0 





10155 DATA 3, 

115, 0 

, 3, 115, 0, 

51 , 

1 15 


, 0, 79, £43, 0 

10156 DATA 75, 127, 0, 48, 115, 0, 0, 35 

, 0, 0, 35, 0 

10157 DATA 0, £48, 0, 0 

10170 REM *** SPRITE PLANE H *** 

10172 DATA 0, 0, 0, 0, 128, 0, 5, 128, 0 

, 3, 128, 0 

10173 DATA 3, 128, 0, 1, 128, 0, 14, 193 

, 0, 0, 96, 128 
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10174 

DATA 0, 49, 

64, 0, 

30, 

32, 0 

K 

10 

K 

16, 0 

, 87, 136 





10173 

DATA 0, 35, 

212, 0 

, 17 

, 226, 

0, 10 

, 224 

, 0, 4, 98 





10176 

DATA 0, 10, 

20, 0, 

49, 

8, 0, 

72, 1 

6, 0, 

72, 32 





10177 

DATA 0, 48, 

0, 0 
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il consulente finanziario 


il gioco simula un investimento in cui voi siete in concorrenza con la 
società del computer, la Spectral investments, per l’acquisizione di un 
milione di sterline. Partendo con 100000 sterline, dovete studiare le 
relazioni sulle condizioni di mercato e acquistare o vendere titoli in 
borsa, se trovate una società che dispone di capitali, ma si sta avvian¬ 
do ad essere in perdita, potete fare un'offerta per la distribuzione del 
patrimonio sociale fra gli azionisti. Per fare un offerta di rilevamento 
dovete tentare di acquistare il 51% delle azioni, dopodiché i vostri 
concorrenti cominceranno a fare delle offerte contro di voi. 

Di tanto in tanto sarà la Spectral a dare il via alle offerte di rilevamen¬ 
to Più a lungo dura la presentazione delle offerte e maggiore e la 
possibilità di intervento di un terzo offerente. . . 

Le azioni ordinarie possono essere acquistate e vendute per qualsiasi 
quantità ad un prezzo che viene regolarmente aggiornato assieme ai 
dati di un bollettino sulle condizioni di mercato. Se vi interessa osser¬ 
vare più da vicino l'andamento di una certa società, potete richiedere 
la visione di una copia della sua relazione annua, da cui trarre le infor¬ 
mazioni relative al suo patrimonio, al prezzo delle azioni, ai profitti e 
ad altri dati di interesse. 

Durante ogni partita, tutte le compagnie producono e vendono i loro 
prodotti ed è questa attività che determina il livello di redditività del 
la società. Durante il gioco succede poi di frequente che le società de¬ 
cidano di investire in nuove apparecchiature o beni, con la conseguen 
te caduta del prezzo delle azioni. Non siate troppo impazienti di ven¬ 
dere le vostre azioni: potrebbe esserci dietro l'angolo un possibile in¬ 
cremento della produttività con un aumento del loro prezzo. 


1 REM***64 VERSION*** 

2 REM *** ASSET STRIPPER *** 

10 POKE53280,3:POKE53281,1:P0KE646,6 
20 pp tkit" MilMMIM» SSET STRIPPERÀ 

n 

25 PRINT llUUIUlir 
30 PRINT"*#' 1 2 

40 INPUT"UIHAT IS YOUR SURNAME " ; N* 

50 INPUT" DIFFICULTY <1,2 OR 3>"; LEV 
70 PR INT"SMB"TAB < 14 ) "PLEASE UIAIT." 

90 GOTO 3260 
100 PRINT-J"; 

110 PR INTTAB< 11 );"■ACCOUNTSa" 

140 PRINT 
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150 printn$;e* 

160 PR1NT 

170 PRINT“LIQUID ASSETS ",INT < <(CH+.005) 
*100>/100) 

180 PRINT 
190 Q =0 :Q1=Q 
£00 FOR X=1 TO 10 
210 Q=Q+E(X) 

220 IFF$CX)="C"THEN 240 
230 Q1=QH-ECX)*DCX) 

240 NEXT 

250 PRINT"SHARES HELD ",INTCQ) 

260 PRINT 

270 PRINT"TOTAL SHARE VALUE "; INT<<Q1 + .0 
05)*100)/100 
280 PRINT 

290 PRINT"TOTAL ASSETS ",I NT C < Q1+CH +.005 
)* 100)/100 
300 PRINT 

310 IF Q1+CH >S THEN £740 

320 IF Q1+CH<0 THEN 2770 

330 03=0 

340 FOR X = 1TO10 

345 IFF$CX)="C"THEN355 

350 Q3=Q3 + CF(X)*D(X)> 

355 NEXT 

360 IF Q3 + 2XCH >S THEN 2770 
370 IF Q3 +2XCH<0 THEN £720 

380 IF T$="X" AND CH+Q1>2XCH+Q3 THEN £74 
0 

390 IF TS= ,, X" AND CH + Q1 <2XCH+Q3 THEN 276 
0 

410 PRINTM*;" CLAIMS ASSETS OF ";Q3+2XCH 
420 PRINT 

430 FORKI=1TO3000!NEXTKI 
450 RETURN 

480 PRINTTAB< 10); "^ia WIRE SERV 

ICE m m 

490 Q =0 :Q 1 =0 
510 MCI)=ASA 
520 FORX =1TO10 

530 IF F$(X) = "C" THENPR INTC*CX ) , m fEASEO 
TRADÌ NGB" 

540 IF F*(X) = ,, C "THEN 680 
560 Q=Q+1 
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570 IFB < X)>A <X)ANDE <X )<510000ANDF<X > <510 
000THENPRINTC$(X>,"RIPE FOR TAKEOVER?“ 

590 IFGCXX 1 AND W ( X ) >59 THENPR I NTC$ < X ) , 
"PROFITS LOW " 

610 IFW<X><60 THENPRINTC$<X>,"HEADS FOR 

TROUBLE" 

630 IFG < X > >5 THENPRINTC$<X>,"SET FOR GOO 
D PROF IT" 

650 I FV < X) >0 AND V(X)>=1 THEN PRINTC$(X> 

,"ANNOUNCES ";INT<V<X));"REDUNDANCIE9" 

660 PRINT 

670 Q1=Q1+D < X) 

675 FORI=1TO500:NEXT 
680 NEXT X 

690 IFQ=0THEN T$=”X" 

700 IFQ=0THEN110 
710 ASA=Q1/Q 

720 PRINT" ALL SHARE AVERAGE “; INT<<ASA + 

.005 > * 100 > /100 

730 IFASA>M<1)THENPRINT"UP " ; INT(< <ASA-M 
<1))+.005)#100>/100 

740 IFASA < M ( 1 ) THENPRINT"DOWN ";INT<<<M< 

1 ) - ASA > + .005> * 100 >/100 

750 I F ASA > I < 2 > THENPRINT"ALL TIME HIGH"; 
760 IFASA >I<2)THEN IC2)=ASA 
770 IFASA<I<3)THENPRINT"ALL TIME LOW 
I<3)=ASA 

780 FORKI=1TO2000:NEXTKI 

810 RETURN 

840 FORX=1TO10 

850 IF F$<X>="C"THEN1010 

860 IFLEV =1 OR LEV=2 THEN880 

870 IFF$<X> = "X" AND F<X)>0 AND FCXX5100 

00 THEN GOSUB 1110 

880 IFWCXXGl AND FCXX510000 THEN GOSUB 
1 1 10 

900 IFF*<X>="C"THEN 1010 
910 IFZXCH<100THEN1010 
9 15 IFLEV =1 ANO RND<1>>.5 THEN950 
920 F = < < < <S/100 ) *5 1 ) -F CX ) > *D <X ) ) 

930 IF(B<X)/100)*51 >FANDF <ZXCHANDF (XX51 

0000ANDE <X)<510000ANDG <X)<1THEN2620 
940 IFZXCHC100 THEN 1010 
950 IFF$<X)="C"THEN1010 
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955 TENTH = Z XCH/10 

960 IFUI< X ) >60 AND G<X>>0 THENGOSUB 1040 
970 IFLEV = 1THEN 1010 

980 IFUKX)>60 ANDG < X ) > 1 THEN GOSUB 1040 
990 IFUKX ) >60 AND GCX)>5 THEN GOSUB 1040 
1000 IFUICX) >60 AND G<X)>10THEN GOSUB 104 
0 

1010 NEXT 
1020 RETURN 

1040 IF < TENTH/D < X ))+E<X)+F<X)>L<X) THEN 
RETURN 

1050 IF F <X)<510000 AND <F<X) + (TENTH/D<X 

)))>S/2 THEN RETURN 

1060 A<X)=A<X)+TENTH*1.05 

1070 ZXCH=ZXCH-TENTH 

1080 F < X > =F <X > + INT< TENTH/D <X ) ) 

1090 L<X)=L<X>-INT(TENTH/D < X)) 

1100 RETURN 

1110 A(X)=A<X>-< < F <X)*D(X))*1.05) 

1120 ZXCH=ZXCH+F <X)*D(X) 

1130 L<X)=L<X)+F(X) 

1140 F <X)=0 
1150 RETURN 
1 180 PRINT ,, d ,, ; 

1190 PRINTTABO); " BBHARE PRICESB" 

1200 PRINT 

1210 PRINT" COMPANY M ;TAB<11);"SHARE PRI 
CE ";TAB < 24); "UP/DOWN" 

1220 PRINT 
1230 FORX=ITO 10 

1240 IFF$<X)="C"THENPRINTC*<X),"SB3LOSED 
DOWNB1" 

1250 IFF*<X)="C"THEN1310 

1260 IF INT<D<X))=D<X) THEN P*«STR*<D<X) 
) + ".00 " 

1270 IF INT<N<X))=N(X)THEN R*=STR*<N<X)) 
+ M . 00 " 

1280 IF INT< D < X )> < D < X > THEN P$=STR*<INT< 
(D<X>+.005)*100)/100) 

1290 IFINTCN(X))<N<X)THEN R*=STR*<INT<<N 
<X)+.005)*100)/100) 

1300 PRINTC*<X);TAB<21-LEN<P*)+1);P$;TAB 
<30-LENCR*)+l);R* 

1310 NEXT 
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1320 PRINT" 


1380 PRI NT"ALL SHARE AVERAGE "JINT<<ASA+ 
.005)* 100 >/100 

1390 PRINT"YOU HAVE "; INT<<CH+.005)* 100> 
/100 

1410 RETURN 

1430 INPUT"BUY HOUI MANY " ; Y 

1450 IFY*D < X )>CH THEN PRINT"YOU HAVE INS 

UFFICIENT CASH GOTO 1430 

1470 IFY>L<X) THEN PR I NT "NOT ENOUGH SHAR 
ES AVA ILABLE ": GOTO 1430 

1490 IFY + E <X > >500000 AND E <X ) <5 10000THEN 
1680 

1500 CH=CH-<Y*D(X)) 

1510 L < X )=L <X)-Y 

1520 A<X)=<A<X)+<Y*D<X)))*1.05 
1530 E ( X ) =E < X ) +Y 
1540 XS="P" 

1550 RETURN 

1570 INPUT" HOUI MANY DO YOU UIANT TO SELL 
" J Y 

1590 IFY)E(X)THENPRINT"YOU DONT HOLD THA 
T MANY. GOTO 1570 
1610 CH=CH+<Y*D<X)) 

1620 L < X)=L < X ) +Y 

1630 A<X)=A<X)-<<Y*D(X)*1.05)) 

1640 E <X ) =E <X ) ~Y 
1645 X»="P" 

1650 RETURN 
1680 T#=» "PHASEH " 

1690 ZI -.01 

1700 PRINT"J"TAB<7)I "TAKE OVER BID":PRIN 
T 

1710 PRINT"YOUR SHARE HOLDING IS ";INT<E 
(X)*100)/Si“ PERCENT" 

1720 PRINT"CURRENT SHARE PRICE IS ";INT< 
<D(X)+.005)*100)/100 

1730 PRINT"THERE ARE " ;L<X);" AVAILABLE" 
1740 PRINT"YOU NEED ";INT(510000-E<X));" 
FOR A MAJORITY" 

1750 PRINT"AND COST "; INT<<<510000-E<X)) 
*D<X) + .005)* 100)/100‘ " AT MARKET PRICE" 
1755 PRINT"YOU HAVE "? I NT<<CH+.005)* 100) 
/100 
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1756 EQ = 0 

1757 FORV =1TO10 

1758 IFF * < X ) < >"C , THEISC;G=EG+<F<:V)*D<V) ) 

1759 NEXT 

1760 IFRND <1)>. 1THEN 1769 

1762 PRINT“THIRD PARTY WINS BID " 

1763 GOSUBE040 

1764 GOTO 1890 

1769 PRINT"HOW MUCH DO YOU BID PER SHARE 
“:INPUT2 

1810 IF21>ZTHEN1880 

1820 K1=A<X>+<510000 *<Z + .01)> 

1822 K2 = <510000-F<X))*<Z + .01) 

1830 IFK1>K£AND(ZXCH+EG > >=K2THENZ1 -Z + . 01 

1840 IFZ1>ZTHENPRINTM*;" BIDS ";INT(<Z1+ 

.005)*100)/100 

1860 IFZ1>ZTHEN1760 

1870 IFZ1<ZTHEN GOSUB1920 

1880 IFZ1>ZTHENG0SUB2190 

1890 Z1=0 

1895 Z =0 

1900 IFT$="PHA3EH"THEN1540 

1910 IFT$="PHASEM"THEN1010 

1920 REM 

1930 PRINT 

1940 Z 1 =0 

1950 F =0 

1960 PRINT" YOU HAVE UION THE BID." 

1970 CH=CH-<Z*<510000-E<X>>) 

1980 A(X)*A<X) + <Z*(510000-E(X ) ) ) 

1990 E<X)=E(X> + <510000-E < X)) 

2000 L<X)= S-<E<X)+F<X>) 

2010 PRINT"DO YOU WANT TO STRIP THIS COM 
PANY OF ITS ASSETS"; 

2020 GETY$:IFY**""THEN2020 
2030 IFY*="N"THENPRINT"^10B" : RETURN 
2040 PRINT s PRINT"ASSETS ARE BEING DISTRI 
BUTED AMONG THE SHARE HOLDERS. " 

2050 PSH=<E<X>*100>/S 
2060 ZPSH=<F<X>*100>/S 
2070 00=B <X)/100 
2080 CH=CH+(PSH*00) 

2090 ZXCH*ZXCH + < ZPSH*00) 

£100 IFA < X > < =0THEN£140 
2 J 10 D (X ) «A <X ) /S 
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£120 CH=CH+<E<X>*D<X> > 

2130 Z XCH =Z XCH + <F<X)*D<X)> 

2140 F$<X>="C" 

2150 L < X )=0 
2160 RETURN 

2190 IFZ1*<510000-F<X>)>ZXCHTHENPRINT"33 
PECTRALB iU ITHDRAU1SB" : RETURN 
2200 PRINTM*;" HAS NON BID.“ 

2220 ZXCH = ZXCH-< <510000-F<X>>*Z1) 

2230 A < X > =A < X ) - <<510000-F< X) > *Z 1 > 

2240 F<X)=F<X) + <510000-F < X ) > 

£250 Z1=0 

£260 IFG<X)<1THENGOSUB2040 

2270 RETURN 

2290 F ORX =1TO10 

£300 IFF$<X>="C"THEN£590 

2310 V<X>=0 

£320 C<X>=0 

2330 IFA <X > <10000THENA<X> = 10000 
£340 J < X)=A< X ) /1 0 
2350 C<X)=C<X)+J<X) 

2360 IFH<X)<J(X)/1000THENH <X>=J<X>./ , 1000 
£370 IFB<X) > = A < X )/"20THEN2400 
£380 C<X>=C<X>+<<A<X>/10>-B<X>> 

£390 B <X) = INT <A<X)/10> 

2400 PROD=J<X)/10 
2410 RAN=INT<RND<1>*3555>+1 
2420 I FRAN= 1THENUI < X ) =UI < X ) - 1 
£430 IFR AN=3THENUI < X)=UI<X) + 1 
2440 T(X)=PROD*U<X) 

2450 C<X)=C<X>+(H<X)*5000) 

2460 PF =T < X >-C < X) 

2470 A<X)=A<X)+T(X) 

£480 A<X>=A<X)-C<X> 

2490 IFA<X)< = 10000THENV <X)=H<X):H<X)=J<X 
)/1000 

2510 V<X>=V<X>-H<X) 

£520 G < X > = < PF * 100 >/T < X) 

2530 SP1=D < X) 

£540 IF A < X > <10000THENA <X) = 10000 

£550 D<X)=A<X)/S 

£560 N<X>=D(X>-SP1 

£570 IFA < X ) <10000THENA <X) = 10000 

2580 IFRNDC 1 ) > . 9THENUJ < X ) =W < X ) + 10 
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2585 IFRNDC1)>.9THENLKX>=W<X>- 10 : REM MIS 
S PRINT? 

2590 NEXT 
2610 RETURN 
2620 PRINT:PRINT 
2640 T$="PHASEM" 

2660 PRINT"J"M*; " BIO FOR " 

2670 PRINTCSCX);" TAKEOVER" 

2680 Z1=D < X ) 

2690 PRINT" AT " ; INT<<D<X> + .005)* 100>/10 
0;" PER SHARE" 

2700 GOTO 1710 

2740 PRINT" YOU HAVE NON" 

2750 GOTO2780 

2770 PRINTM*;" HAS NON UJITH "ZXCH+Q3 
2780 PRINT SPRINT "DO YOU WANT ANOTHER GAM 
E?" ; 

2790 GETV*:IFV$="Y"THENPRINT"YES":FORI=1 

TO100 :NEXT:RUN 

2800 IFV$=""THENGOTO2790 

2810 END 

2820 REM LOOP 

2330 GOSUB2290 

2850 GOSUB2290 

2360 GOSUB100 

2870 GOSUB480 

2890 GOSUB1180 

2900 PRINT"ENTER INITIAL OF CHOSEN COMPA 
NY OR JPB9SS " 

2920 GETX*:IFX$ =""THEN2920 

2930 IFX$= "P "THENPRINTTAB< 15 ) "iFASSB" : GO 
TO3240 

2940 X =1 

2950 IFLEFT*<C$<X),1)=X$THEN2970 

2960 X=X+1 : IFX=11THEN2900 

2965 GOTO2950 

2970 IFF*<X>="C"THEN£900 

2930 PRINT"J" 

2990 PRINTC$<X >:FORKI=1TOLEN<C$<X)):PRIN 
T" — "; :NEXT:PRINT 

3000 PRI NT"LIGUID CAPITAL ", INT<<A(X) + .0 
05)*100)/100 

3010 PRINT"CAP I TAL EQUIPMENT ", 
+.005)*100>/100 


I NT < < B < X) 
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3020 PRINT"EMPLOYEES ",INT<H<X>> 

3030 PRINT"OVERHEADS ",INTC<C<X> + .005>* 1 
00>/100 , • 

3040 PRINT"PROFIT ",INT<<T<X)-C<X)+.005) 

* 100 > / 100f 

3050 PRINT-PROFIT % OF TURNOVER ",INT<G< 

X> > 

3060 PR ìNT"SHARE PRICE ",I NT<(D<X> + .005) 

* 100)/100 

3070 PRINT"SHARES AVAILABLE ",INT<L<X>> 
3080 PRINT"SHARES HELD BY YOU ",INT<E<X> 

> 

3030 PR INT '"/ SHARES HELD BY YOU ",INT<<E 
<X)*100)/S) 

3 100 PRINT"YOU HAVE "; INT<<CH+.005)* 100) 
/100 

3110 PRINT n 


3120 IFE < X >>=510000THENPRINT"DISPOSE OF 
ASSETS"; 

3130 IFE <X > >=510000THENINPUTAS 
3140 IFE <XX510000THENA*="N" 

3150 IFE(X)>=510000 AND A$="Y"THENG0SUB2 
040 

3160 IFF$<X) = ,, X"THENPRINT"flB«UY,aSR:LL 0 

R 5PHASS" 

3170 IFF$<X>="X"THENGETX$:IFX*=""THEN317 
0 

3175 IFF$<X) = "C ,, THENX*="P" 

3180 IFX$<>"P" AND X*<>"S" AND X*<>"B"TH 
EN2900 

3190 IFXS="B"THENGOSUB1430 
3200 IFX$="S"THENGOSUB1570 

3210 IFX^="P"THENPRINT"LOOK AT ANOTHER C 
OMPANYCtfYB OR iHB> " /* 

3220 IFX$="P“THENGETA*:IFA*=""THEN3220 
3225 IFX$="P"AND A*="N"THEN PRINTTAB<15) 

" JFASSS" 

3230 IFX$="P" AND A$="Y"THEN2830 
3240 GOSUB840 
3250 GOTO2850 
3260 REM 

3270 M$ = " SPECTRAL INVESTMENTS LTD . " 

3280 DIMCS<10> 
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3290 FORX =ITO 10:READCS<X):NEXT 
3300 DATA"ACME CORP.","BRN INO. ","CAPR 
A STEEL","DELTA GROUP“,"ELLIOT CORP." 
3310 DATA"FORAX CHEMICALS","GNS INT. 

, "HOPE HOLDINGS","INCE CO. 

3320 DATA"JONES & PEEKE " 

3390 X=10 

3400 DIMA < X ),B<X), C ( X >, D < X >, E ( X >, F < X >,G( 
X),H<X>,P(X>,T<X),I(3) 

3500 W*=" 

3520 DIMJ <X>,L<X) 

3540 E$=" INVESTMENTS LTD." 

3550 3=1000000 
3560 CH=100000 
3570 Z XCH =CH 
3580 AW=5000 
3590 ASA =0 
3600 T$="0" 

3620 DIMM < 3) 

3630 PT=0 

3640 DIMN<X>,LKX>(X> 

3680 DIMF$ < X) 

3690 FORX =1TO10 

3700 A < X ) = INT < RND <1> *S/2) + 1 

3710 D < X > = S/A < X) 

3720 B (X ) = INT (RND <1)*S/10) + 1 
3730 H<X)=B<X)/10/1000 
3740 W<X)=60 
3750 F$<X)="X" 

3760 L < X > =S 
3770 NEXT 
3780 GOTO2820 
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Un gioco solo apparentemente facile. Cercate di scoprire qual è il nu¬ 
mero a cinque cifre scelto dal computer con soli quattro quesiti. State 
attenti, questo gioco è come una droga! 

I REM *** 64 VERSION *** 

10 REM ***** FIVES ****** <C> 1983 MICHE 

AL BELJS 

II REM CONVERTED 1983 R.D.PARRATT 
20 DIM A<5>,F$<5>,B*<4),S*<5> 

25 GOSUB 1400 

30 POKE 53280,3!P0KE53281,7 
40 GOSUB 600 

59 REM **MAIN ROUTINE 

60 PR INT " iJ" 

70 FOR X =1 TO 5 

60 LET A ( X > = 1 + INT < RND <1)*9 > 

90 IF X=1 THEN 120 

100 FOR Y=1 TO X-l: IF A<X)=A(Y) THEN GO 
TO 80 

110 NEXT Y 
120 NEXT X 

130 pRiNT"aamiuiiuya : i v e s- 

YOUR QUESTIONS, ONE AT A TIME" 

145 FOR Y=1 TO 4 

150 PR INT"S”J : FOR QQ=1 TO Y + 3 : PRINT "H" ; : 

NEXT!PRINTY;"> "? 

155 GOSUB 490 

157 DU = 90:FR=12860 :GOSUB 1500 
160 LET FSKY>=STR*<A<P> > 

165 PRINT X*; 

170 GOSUB 530 

177 DU = 90:FR=19269 :GOSUB 1500 

130 PRINT"3" ; !FOR QQ- 1 TO Y+3:PRINT"M"; : 

NEXT: PR INT 11 MIMI 11 ; B*(Y>; 

130 GOSUB 4S0 

192 IF3TR$<A <P > > = F$(Y)THENGOSUB1000 :PRIN 
TTAB < 15 > ; "*iJP IFFERENT LETTERiH" ! GOTO1T90 

193 GOSUB 1000 :PRINTTAB(15)* " 


Il * 
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194 DU =90 s FR= 10207. : GOSUB 1500 

195 SS<Y>=STR$<A<P> 

£00 GOSUB 1000 ! PR INT " UUUIIJ ' X*/ 

205 GOSUB 1100:REM EVALUATOR 
£10 GOSUB 1000 :PRINTTAB < 9 > / "= " ; EV 

£15 DU=50:FR=12860:FORX=1 TO 5 :GOSUB 
0 :NEXT X 
££0 NEXT Y 

£50 REM END INO ROUTINE 
255 PRINT" 


150 


260 PP T N~r 11 fl jBflB flMMMMBl NlQLI ENTER YOUR GUES 
S AS A COMPLETE FIVE 
£6£ PRINT"FIGURE NUMBER“ 

£64 PRINT" IFOR EXAMPLE 12345<RETU 

RN> " 

£66 PRINT" BENTER A '?' IF YOU RES 

IGN3" 


£70 INPUT " 

HI" ; x* 

272 pp » ■■ ■ 


TAB <11 " 


275 IF X^»"?" THEN PR INT"SRH" * ! GOTO 310 
280 IFLEN<X*><>5 THEN PRI NT"QT' f TAB(11); 
"AFIGAIN! - FI VE FIGURESH":GOTO 260 
290 FORX=1T05:IFVAL<MID$<X*,X,1> >=A<X)TH 
EN NEXT X s GOTO 300 

295 PR I NT 11 m" ; TAB (11);" JBMO ! ~ TRY AG A INH 
3 " :GOTO260 

300 PR INT"aS" /' TAB <23 ) ; " BaCORRECTSH" 

310 DU =100 :PRINT TAB<9); :FORX=1T05:PRINT 
A<X>; "II"; s FR = 10207 +600 *X: GOSUB 1500 : NEXTX 

311 PR I NT 11 a gMgBBBBM" : LETLN= 12 : GOSUB 1200 

312 PRINT:PRINTTAB<8);"BPRESS <RETURN> F 
OR NEXT GAME3" 

313 PR INTTAB <8 ); "BOR ZftTBi TO QUIT3" 

314 GET X$:IF X$=CHR$<13> THEN 60 

315 IF X*="Q" THEN POKE53280,7 :P0KE53281 
,6 :PRINT"fcjn n! END 

316 GOTO 314 

489 REM ♦***— I BOARD ENTRY 

490 GET X*:IF X$="" THEN 490 
500 P=ASC<X*> 

505 IF X*f="F" THEN P=i: RETURN 
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510 IF X$="I" THEN P=£:RETURN 

5 15 IF X$="V" THEN P =3: RETURN 
520 IF X$="E" THEN P=4:RETURN 
525 IF X*="S" THEN P=5:RETURN 
527 GOTO 490 

530 GET X$s IF X$="" THEN 530 
540 IF X*="+" OR X*="-" OR X$="*" OR X$= 
THEN 550 
545 GOTO 530 

550 B$(Y)=X£:GOSUB 1000 :PRINTTAB<15>; " 

II 

570 IF Y=1 THEN RETURN 

5B0 FOR2 = 1 TO Y-lslF B$<Y)^ >B$ <2)THEN NE 
XT 2 : RETURN 

535 GOSUB 1000 : PR INTTFlB < 15 ) ; "aaRLREADY U 

SED ! ■ 31 " ! GOTO 530 

600 REM ♦ * *—UIRUCT IONS 

610 PR I NT 11 -.Mia THE OBJECT OF F I V E S IS 
TO CALCULATE" 

6 15 PRI NT"THE FI VE DIGIT NUMBER REPRESEN 
TED BY" 

616 PRINTTAB<15>;"3F I V E SS" 

618 PRINT" ON THE SCREEN." 

620 PRI NT : PRI NT"3 YOU MAY DO THIS BY ASK 
ING THE COMPUTER"; 

622 PRINT" TO Gl VE YOU ANSUIERS TO FOUR S 
IMPLE SUMS" 

630 PR INT: PR INT " J3THESE SUMS MUST BE ONE 
EACH OF THE" 

632 PR INT"FOLLOUIING MATHEMATICAL FUNCTIO 
NS ! " 

633 PRINT" MULTIPL ICATION ad*3B" 

634 PRINT" HDD ITI ON «d+V 

635 PRINT" SUBTRACTION UàI" 

636 PRINT" DIVISION «d/V 

640 PRINT:PRINT"FOR EXAMPLE: «PRESS I+V 
3 " 

642 PRINT"AND THE COMPUTER WILL GlVE YOU 
AN ANSUER"; 

660 PRINT:PRINT"YOU MAY ASK THE QUESTION 
S IN ANY ORDER YOU UISH." 

670 PRINT:PRINTTAB<9>; "«PRESS ANY KEY TO 
STARTa"; 

680 GET X*:IFX*=""THEN680 
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690 GOTO 60 

1000 PRINT"H" / :FOR QQ=1 TO Y + 3:PRINT'*” ; 
:NEXT:RETURN 

1099 REM ***EVALUATOR 

1100 LET LV=VAL(F*<Y>>:LET RV=VAL<S*<Y>) 
1110 IF B*<Y> = " + " THEN EV=LV+RV: RETURN 
1160 IF B*(Y>="-" THEN EV=LV-RV: RETURN 
1130 IF B$<Y) = "*” THEN EV=LV*RV: RETURN 
1140 IF B$< Y) = "/" THEN EV=LV/RV: RETURN 
1150 PRINT "ERROR- BAD OP IN EVALUATOR": 
STOP 

1200 FORQQ =1TOLN:PRINT" 

"; :NEXTQQ: RETURN 

1399 REM ****SET UP NOISE CHIP 

1400 SC =54272 

1410 FOR L = SC TO SC+24:POKEL,0 :NEXT 
1420 POKESC +5,0 
1430 POKESC+24,15 
1440 RETURN 

1499 REM * * * *MAKE NOISE 

1500 POKESC+6,240 

1510 HF=FR/256:POKESC+1,HF:POKESC,CHF-IN 

T < HF))*256 

1518 POKESC + 24,15 

1520 POKESC +4,17 

1525 FOR N=1 TO DU:NEXTN 

1530 POKESC + 4,16 

1535 POKESC + 24,0 

1540 RETURN 


308 


Tiro alla fune pericoloso 


Il tiro alla fune pericoloso è un gioco a due, in cui ciascuno dei gioca¬ 
tori ha a propria disposizione una squadra di tre uomini, impegnati in 
un pericoloso tiro alla fune in cima ad un canyon, sopra le loro teste 
vola un piccolo oggetto non identificato e ogni giocatore a turno de¬ 
ve cercare di far cadere da esso un paracadute, facendolo atterrare 
nel punto indicato in basso sullo schermo in una posizione a caso. 

Ogni volta che un paracadutista tocca terra nel punto stabilito, la 
squadra dell’avversario viene spinta verso l’orlo del burrone e se un 
suo uomo cade, la squadra risulta indebolita. Vince il gioco chi riesce a 
far cadere tutta la squadra avversaria. 

5 GOSUB9000 
10 GOSUB8000 
20 GOSUB7000 

50 T=1024 :MM=1 19•REM SO AS NOT TO POKE L 
OC ZERO 

999 REM PLAY PLAYER 1 

1000 POKET,^M:T=1024+ 23*40+ <RN3 < I > *38+1 > 
:MM=PEEK<T>:POKET,91 : M = 0 

1005 POKES + 4,32 :POKES+4,33 

10 10 FORF =0TO39:L =M:M = PEEK( 1024+F):POKE1 
024+F,137 
1015 POKES +1,70-F 
1020 IFL< >0THENPOKE1024+F-l,L 
1025 FORH=0TO 10 ’• NEXT 

1030 GETAS* IFA$="A"THENPOKE1024 + F,138:GO 
TO2000 

1040 NEXT:POKE1024+F-1,M:GOTO3000 

2000 POKE1024+F,M:POKES+4,32 

20 10 FORG =1T024:L=M:PO=1024+40*G+F:M=PEE 

K ( PO > : POKEPO*, 1 38 : POKEPO-40 ,L 

2020 IFM=91THEN2100 ! REM A HIT 

2030 NEXT:POKEPO,M:GOTO3000 

2100 POKEPO,M 

2110 Y=Y-1 

2120 PRINTLEFT$<DN$,18>;LEFT$<AC$,Y) ; A$< 
l>;1>;" " 

2130 PRINTLEFT*<DNS,19);LEFT$<AC*,Y);AS< 
2)?SP^;B*<2);" " 

2 140 IFPEEK<1024+702><>133THEN3000: REM N 
OT FALL OFF 
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2145 POKES + 4,32 :PQKES+4,33 :POKES+1 , 10 
2150 U=21:PRINTLEFT*(DN$,18);LEFT$<AC$,U 
+ 1 >; "_■ 

2155 PRINTLEFT$(DN$, 19>;LEFT$<AC*,U + 1); " 

"!GDSUB6000 

2 160 IFTB= . 02THENB$< 1 ^"^FEFB" :B$(2)="a 

GHGHi" :SP*=SP$+ * ":J$=J*+"_" 

2170 IFTB = . 002THENB# < 1 ^"^PS" :B*(2)="aB 

HB":SP$=SP^+" ":J$=J$+"_" 

2 180 IFTB=.0002THENW=1 !GOTO6500 
2190 TB=TB/10 

2999 REM PLAY PLAYER 2 

3000 POKET,MM:T=1024+23*40+(RND<I) *38 + 1) 

:MM=PEEK< T ) :POKET,91:M=0 

3005 POKES+4,32:P0KES+4,33 

3010 FORF =39TO0STEP-1:L=M:M=PEEK<1024+F) 

:POKE1024 +F,137 
3015 POKES+1,70-39+F 
3020 IFL<>0THENPOKE1024+F+1,L 
3025 FORH =0TO10 :NEXT 

3030 GETA$: IFA$="L"THENPOKE1024 +F,138:G0 
TO4000 

3040 NEXT:POKE1024+F+1,M:GOTO1000 
4000 L=M:POKES+4,32 

4010 FORG = 1T024:L = M: PO=1024+40*G+F:M=PEE 

K(PO):POKEPO,138 :POKEPO-40,L 

4020 IFM=91THEN4100 : REM HIT 

4030 NEXT:POKEPO,M:GOTO 1000 

4100 POKEPO,M 

4110 Y=Y+1 

4 120 PRINTLEFT$<DN$,18);LEFT$(AC$,Y-1); ■ 

";a*< i>; j$;b*<1) 

4130 PR INTLEFT$(DN$, 19 ) LEFT$ < AC$ , Y- 1 ); " 
"i A$(2);SP$;B$<2) 

4140 IFPEEK<1024+697)< >130THEN1000: REM N 
O FALL OFF 

4 145 POKES + 4,32:POKES+4,33:POKES+1 , 10 
4 150 U=18 :PRINTLEFTS(DN$,18 ) ;LEFT$(AC$,1 
6 ) ; "_" 

4 155 PRINTLEFT*<DN*,19);LEFT$<AC$, 16); " 

":GOSUB6000 

4 160 IFTA= . 02THENA$( 1 )="aABABS" :AS<2) = M fl 

CDCDS" :SP$=SP*+" ":J$ = J$+" " 

4 170 IFTA = .002THENA$< 1 : A$ < 2 ) = " flC: 

:SP$=SP*+" ":J^=J^+"_" 
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4180 IFTA=.0002THENW=2!GOTO6500 
4190 TA=TA/10: GOTO 1000 

5999 REM * FALL OFF DRALIING 

6000 FORF =19T024:PRINTLEFT$<DN$,F >,*LEFT* 
< AC$ , U > ; " iKLMMNB" i 

60 10 IFF >19THENPRINTLEFT$(DN$,F-1>;LEFT$ 
<AC$,U>; M "; 

6015 FORI=0TO5:NEXT 

6080 NEXT:PRINTLEFT* < DN$,F)JLEFT$ < AC$,U > 

; HUI^Lf"; 

6085 FORI=0TO5:NEXT 

6030 printleft*cdn*,f>;left*<ac*,u>; 


6040 RETURN 

6499 REM EOG 

6500 FORC = 0TO80:POKES+1,10 :FORJ=0TO50: NE 
XT:POKES + 1,80 :FORJ=0TO50:NEXT:NEXT 

6505 POKES+4,32:P0KE198,0 

6510 PR INT "ìJaIELL DONE PLAYER W; " - YOU 
NON ! ! " 

6580 PR INT "ÉSHSFRESS ANY KEY TO PLAY AGAI 
N" 

6530 
6540 

6999 

7000 

7005 

7006 


:GETA$:IFA$ =""THEN6530 
GOTO80 

REM INI TIALIZ 

P0KE53881,6:PRINT" J" :P0KE53281,3 
DN$=" 

AC$ = " 


IUIUIIII1" 

70 10 A<0) = 113:A<1)=69 : A(8)=68 : A<3>=67 : A< 

4 > =70 : A < 5)=70 : A < 6 >=88:A<7) = 111 :A<8) = 111 

7020 FOR1=1024TO1574STEP18 

7030 FORJ=0TO8:POKEI+J,A(J):NEXT 

7040 FORJ = 8TO0STEP- 1 :POKEI+ 8-J+9,A<J >: NE 

XT 

7060 NEXTI 



7080 PR I NTLEFT3? < DN$ , 80 ) : FOR I = 1 T05 : PR I NT 

GR$; :NEXT:PRINTLEFT* <GR$,39); 

7035 POKE8023,108 

7090 A$< 1 ) = "jSPlBABABH" :B$< 1 ) = “fiEFEFEFH" : A 
$<2 > = "SSDDCDCDB" : B*<2 ) = "aGHGHGHS" 

7095 J$="__":SP^= 1 ' •• 
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7 100 F'R INTLEFT$<DN$, 1 8 > ; LEFT3> < AC$ , 10);A$ 

<l); j$;b*< l) 

7110 PRINTLEFT$(DN$,19);LEFT$<AC$,10);A$ 

<2>;sp$;b$<£) 

7120 TA=.02 :TB = TA:T = 0:Y=10 

7130 S=54272:POKES+24,15:P0KES+5,15:P0KE 

S+1,70 

7140 RETURN 

7999 REM MOVE CHARACTER GENERATOR ETC 

8000 PRINT'LPLEASE WA1T ONE MINUTE" 

8009 REM READ CHAR GEN 

8010 P0KE5G334,PEEK(56334)AND254 
8020 POKE 1 ,PEEK( 1 )AND251 

8030 FORI=0TO128 :FORJ =0TO7 

8040 POKE14 336 +I*S+J,PEEK<53248+I*8+J ) 

8G50 NEXTJ,I 

8060 POKE 1 ,PEEK< 1 >OR4:P0KE56334,PEEK <563 
34)OR 1 

8070 P0KE53272,<PEEK(53272)ANO240)OR 14 
3079 REM READ IN NEW CHARS 
8080 FORI = 129T0142 :FORJ=0TO7:READD:POKE1 
4336+I*8+J,D:NEXTJ,I 

8100 DATA24,52,62,60,24,31,255,15,0,0,0, 
0,0,248,255,240,15,7,7,3,0,0,0,0,0 
8110 DATA 128,192,224,112,24,12,7,0,0,0,0 
,0,31,255,15,24,44,124,60,24,248 
8120 DATA255,240,0,1,3,7,14,24,48,224,24 
0,224,224,192,0,0,0,0,0 

8130 DATA 129,66,36,102,255,126,60,16,124 
,254,0,16,56,16,40,1,195,101,55 
8140 DATA27,15,7,3,128,195,166,236,152,2 
40,224,192,3,3,3,7,14,28,134,112,192 
8150 DATA 192,192,224,112,56,29,14 
8160 RETURN 

9000 P0KE53281 ,3 :POKE53230,6 

9005 PRTNT" ^M TUG-OF-UJAR 

9006 PRINT" MH BY PAUL STANLEY3" 

9007 PRINT" I- 


9008 FOR1 = ITO 15:PRINT" | 

I" : NEXT 


9009 PRINT" L 
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9010 print " nriiimiiTTmir i simple gam 

E FOR 2 PLAYERS Ufl-iO HAVE 

9020 PRINT"|*frO WIN, NOT BY STRENGTH, BU 
T BY 

9030 PRINT"I1FEACTIONS. A UFO WILL FLY A 
CROSS THE 

9040 PRINT"IM3CREEN AND A TARGET WILL AP 
PEAR AT 

9050 PR I NT"1IMTHE BOTTOM. PLAYER 1 CAN PA 
RACHUTE 

9060 PRINT"IWOUT ONTO THE TARGET BY PRES 
SING ' A ' . 

9070 PRINT"IBFLAYER TWO BY PRESSING 'L*. 
9080 PRINT ,, |*ia IF THE PARACHUTE LANOS 
ON TARGET 

9090 PRINT'-ttfrOU WILL PULL THE OTHER TEA 
M. IF ANY 

9100 PRINT"|*MEN FALL DOWN THE CANYON TH 
EN THAT 

9110 PRINT"MfTEAM WILL FIND IT HARDER TO 
WIN 

9 120 PRINT 11 H WaHHlMP RFSS ANY KEY TO ST 
ART" 

9130 GETA$:IFA$=""THEN9130 
9140 RETURN 
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L’invasione dei funghi 

Bene così avete combattuto contro i più temibili nemici delle galassie, 
-antro gli invasori dallo spazio, contro gli asteroidi e i tunnel del tem- 
oo e i gatti vampiri. Non credevate di poter incontrare nemici di que¬ 
sto tipo vero? Ebbene, vi assicuriamo che le cose possono andare an- 
: ne peggio. Questa volta dovete infatti combattere con un nemico 
senza volontà e intelligenza, un nemico senz'anima e senza cuore ... un 
njngo, diffusosi su tutta la Terra. 

Colonie di funghi hanno ormai invaso mezzo globo e stanno muoven¬ 
dosi per l'ultimo attacco, voi siete il comandante dell’ultima arma in 
-"ado di distruggerli con il suo raggio laser. 

aspettate finché non vedete il bianco della parte interna delle loro ca¬ 
pocchie e colpite il bersaglio, se dovessero colpire la vosta nave, vi 
distruggerebbero! 


0 REM:** ENTER "Pn642,16: S 164760" DIRECT 
BEFORE ENTERING OR LOADING THIS PROGRAM 

1 CL = 55696 :8N=1024:CH=2048:MU=54272 : VI=5 
3248 : POKE V I + 16,0 : POKEV I + £ 1 ,0 : P0KE646 ,PEE 
KCVI+33) 

2 IFPEEK <4114)< >207THENPRINTCHR*<147); :F 
ORI=0TO15 :PRINTCHR$ < PEEK <256*PEEK<44)+PE 
EK <43) + 16+I> >! :NEXT 

3 IFPEEK <4114>< >207THENPOKE138,2:P0KE631 
, 19 :P0KE632,13 :P0KE256 *PEEK < 44)+PEEK <43) 


+4,144:GOTO0 

4 REM ** RE5ETS START OF BASIC AND UIIPES 
PROGRAM, IF LOADED IN L4RGNG PLACE 

5 POKEV I+33,0 : POKEV I+32,0 : PR I NT "; : REM 
** CLEARS SCREEN TO ALL BLACK 

6 REM ** USE OF ABBREVIATED COMMANDS ESS 
ENTI AL THROUGHOUT LIHEN ENTER ING LINES 

7 REM ** CURSOR CONTROL STRINGS: ALL REM 
S MAY BE OMITTED EXCEPT LINES 0 & 6 

8 GOSUB500:FORT = 0TO2000:NEXT:POKEVI+24,1 


9 : REM ** OISPLAYS TITLE DURING SET-UP 

10 FOR I =0TO242 : READJ *■ NEXT : FOR I =0TO2047 : R 
EADJ:POKECH +I,J:NEXT:RESTORE:GOSUB750 

11 REM ** READS IN CHARACTER SET FROM DA 
TA STATEMENTS AT END OF PROGRAM THEN UDG 

12 REM ** SHORT VERSION, READING FROM RO 
M, NEXT ON THIS SIDE OF TAPE 
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13 REM ** EITHER LIAY, CHARACTER SET BEST 
LOADED AT 2048 ($0800), AS HERE 

14 REM ** BUT POSSIBLE AT 14336 <$3800), 
PAGE 56, FOP SHORT VERSION, IF 644, 5£ 

15 REM ** & 56 ALL POKED WITH 56 TO PROT 
ECT - 12288 ($3000) RISKY, 8132 <$£000) 

16 REM ** DEFINI TELY NG-GG. POKE V+£4<53 
272) WITH 28 OR 31 TO USE FIRST TLC 

£0 GOSUB2060: REM ** GET START VALUES 
30 GOSUB2100 : REM ** GO TO INSTRUCTIONS 

38 REM ** START OF GAME LOOP 

39 REM ** VI = START OF VIDEO, MU= START 
OF SOUND, P & CO= POS. IN SOR & COL MEM 

40 POKEVI + 1 ,X :P =I NT < X/8)*40 +INT < Y/8)+ SN- 
2 !CO = P +MU:POKEVI+21,1 

4 1 IFY< 25THENY = 25 

42 IFY< 256THENP0KEV1 + 16,0:POKEVI,Y 

43 IFY >304THENY = 304 

45 IF Y)255THENP0KEVI + 16,l:P0KEVI,Y-255:R 
EM ** MOVEMENT LIMITS 

46 A$=CHR$<0) 

49 REM ** MOVEMENT CONTROL 

50 GETA$: IFA$=" "THENGOSUB4000: REM ** FI 

RING 

60 IFA$="H"THENY = Y-8: IFY<25THENY=£5 
70 IFA$ = " MI" THENIF Y >255THENP0KE V I + 16,1 : PO 
KEVI,Y-255 

75 IF A$=" M" THENIFY< 256THENP0KEV1 + 16,0:PO 
KEVI ,Y 

80 IFA$="M”THENY = Y + 8: IFY>304THENY = 304 
85 IF A$= " II" THEN I F Y >£55THENP0KE V I + 16,1 : PO 
KEVI,Y-255 

90 IFA$= "||"THENIFY<256THENP0KEV I + 16,0 : PO 
KEV I , Y 

104 REM ** SHIP MOVEMENT 

105 IFY< 255THENP0KEV1 + 16,0: IFY<25THENY=2 

5 

106 IFY >255THENP0KEV1 + 16,1:POKEVI,Y-255: 
GOTO 110 

109 POKEV I , Y 

110 POKEV1+1,X:P=INT<X/8)*40+INT<Y/8)+SN 
-2 : CO =P +MU 

120 IFPEEKCVI+31) = 1THENGOSUB5000: REM ** 
COLLISION 
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130 GOSUB3000: REM ** ADD MUSHROOMS 

135 IFY >255THENP0KEV I + 16 ,PEEK <V 1 + 16 >OR 1 : 
POKEVI,Y-255: GOTO 140 

136 POKEVI ,Y 

140 POKEVI+ 1, X s P = INT <X/8> *40 + INT < Y/S)+SN 
-2 ! CO =P +MU 

150 GOTO40 5REM ** RESTART MA IN GAME LOOP 

499 REM ** PRINT TITLE SUB-ROUTINE (MAY 
BE OMITTED), STARTS LIITH SCREEN OFF 

500 P0KE53265,11 :FORI=0TO39:POKE1024 +I,2 
1 1 :POKE1984 +I ,2 1 1 :NEXT:FORI= 1T023:POKE10 
24 +40*1 ,2 11 

50 1 REM ** BORDER POKED TO SCREEN ONLìr', 

LIITHOUT COLOUR, SO INV1SIBLE 
505 POKE1063+40*I ,21 1 : NEXT : PR I NT " aSBBllM 
M M BJ U gJSSS BJ H 1RRRR *300 yDOO kM 
M" 

5 10 PR I NT " UUIJM MM Et' U BE BJ H IR R 
*3 0 aD 0 kMM MM" 

5 15 pp T NT " «lar i M M BJU U BESS BJHH 1RRRR 
ao 0 ao O kM M M" 

520 pp T NT » >■!* ! M Et U IBS BJ H 1RR 

m o ao o kM M" 

525 pp T NT " M DJ U BS BJ H IR R 

*3 0 aO 0 kM M" 

530 pp t NT " Hklat ì M OJUU BESS BJ H IR R 

aooo aooo kM m h 

535 PP t MT » «MBMiMnnnniMA AA LJTTT ®TTT 
»JAA DCCC 5* K" 


540.PRINT 

imi 

PIUMA 

A 


OT 

SA 

A 

DO 

5S< K" 
545 PRINT 

imi 

PIUMA A A 

ar 

®T 

3AA A 

OS: 

■JC.K " 

550 PRINT 

uni 

PIUMA 

A 

ar 

0fT 

3A 

A 

Et 

5S< K " 

555 PRINT 

uni 

UH» 

A 

ar 

orr 

3A 

A 

Et 

K" 

560 PRINT 

uni 

feUIMA 

A 

ar 

W 

3A 

A 

Et 


CC S* K " 

595 P0KE53265,27:FORT = 0TO2000 ’ NEXT: REM * 
* SCREEN ON & DELAY 

600 PRINTLEFT$<DN*,13>RIGHT*<ACS,15) "1FR 
EPARINGRETURN:REM ** END OF ROUTINE 
749 REM ** OEFINE GRAPHICS: SHIP SPRITE, 
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MUSHROOM UDG, LASER & EXPLOSION SPRITES 
750 FORM=0TO62:READX:P0KE832+M,X:NEXTM 
760 POKE2040,13 :POKEVI+39,5 
780 FORM=0TO7:READX:POKECH+211*8+M,X:NEX 
TM 

995 FORN=0TO62:READX:P0KE896+N,X:NEXTN:P 
□KE2041,14:POKEVI+40,7 

996 FORN=0TO62:READX:POKE960+N,X:NEXTN:P 
OKE2042,15 :POKEV1+41,8 

999 REM ** GRAPHICS DEFINED, LOAD MACHIN 
E CODE LJHOLE SCREEN PRINT COLOUR CHANGE 

1000 FORI=0TO45:READJ:POKE704+I,J:NEXT:P 
OKEVI + 1 , 104:POKEV1+3,120 :POKEVI+5,128 

1005 REM ** ROUTINE TO ENLARGE, ENABLE & 
MOVE SPRITES ACROSS TITLE <IF USED) 

1006 REM ** IF NOT REQUIRED, OMIT END HA 
LF OF LINE 1000 (POKE VI+1...) TO 1019 

1007 REM ** AND REPLACE L-JITH POKE VI+2 1. 
.. FROM THAT LINE, TO END ROUTINE 

1003 REM ** SFRITE e FLASHING COLOURS, 2 
AS BACKGROUND: HIT ENABLES 1 YELLOLJ 
1009 REM ** 2 GRANGE & REMOVE3 LETTER: E 
ND OF NORD REVERSES PROCESS 
10 10 FOKEV 1+23,7:POKEVI+29,7:FORY = 0TO255 
:POKEVI,Y:POKEVI+2,Y:POKEVI+4,Y:POKEVI+3 
9/V 

1011 POKEV1+21,5:IFY/8<140RY/8>25THENP0K 
EVI+41,PEEK(VI+33 >:FORT = 0TO100 :NEXT:GOTO 
18 14 

1012 IFPEEK(VI+31)AND4=4THENP0KEVI+40,7: 
POKEV1+41,8:PRINTLEFT*(DN$,13>RIGHT$(AC» 

,Y/8)" "; 

1013 IFPEEK(VI+31)AND4 =4THENP0KEV1+21,7: 
FORT=0TO50:NEXT:POKEVI+21,3:FORT=0TO50:N 
EXT 

1014 NEXT:POKEV1+16,1:FORY=0TO95:POKEVI+ 
21,0:POKEVI,Y:POKEVI+39,Y:POKEV1+21,1 

1016 FORT = 0TO100 :NEXT: IFY>87THENP0KEV1+2 
1,0:REM ** DISABLE ONCE OFF SCREEN 

1017 NEXT:POKEV1+16,0:POKEV1+39,5:POKEVI 
+40,7:POKEV1+41,8:FORI=0TO5:POKEVI+1,0:N 
EXT 

1018 POKEVI+23,0 :POKEVI+29,0:FORI=0TORND 
< 1 ’> * 1 50 : A = R ND ( 1 > * 1000 + 1024 : I FPEEK (A ) =32T 
HENPGKEA,2 1 1 
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10 19 NEXT:P0KE646,10 :SYS709:POKE10£4,211 
: FORT=0TO£000:NEXT:POKEV1+21,7:RETURN 
1020 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0 : REM ** SPRITE & UDG DATA 
1030 DATA3,255,192,7,255,224,15,255,240, 
170,170,85,170,170,85,15,255,240 
1040 DATA7,255,224,3,255,192,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
1045 DATA4,126,255,255,60,24,24,24 
2020 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
, 0 , 0 , 0 , 0,0 

2030 DATA0,24,0,0,24,0,0,24,0,0,24,0,0,2 
4,0,0,24,0,0,24,0,0,24,0 

2035 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

, 0,0 

2040 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

,0 , 0,0 , 0,0 

2041 DATA0,153,0,0,90,0,0,126,0,0,60,0,0 
,60,0,0,126,0,0,90,0,0,153,0 

£042 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

, 0,0 

2043 REM ** MACHINE CODE DATA 

2045 DATA 169,224,76,199,2,169,241,141 ,23 
5,2,162,0,169,32,157,0 

2046 DATA4,157,0,5,157,0,6,157,232,6,173 
,134,2,157,0 

2047 DATA216,157,0,217,157,0,218,157,232 
,218,202,208,241 ,96,0 

2050 REM ** SYS 704 CLEARS SCREEN, LOADS 
COLOUR MEM.; SYS 709 CHANGES CHAR COL. 

2051 REM ** POKE 646, PRINT CONTROL CODE 
OR PRESS COLOUR KEY BEFORE CALLING 

2060 X = 48 :Y= 152 : W=0 : C=0:REM ** START VAL 
UES 

2065 QQ=PEEK(VI+31> 

2070 RETURN 

2099 REM ** INSTRUCTIONS 

2 100 PRINT"^ THE EARTH IS BEING ATTACKE 
D BY A FLEET BOF MINDLESS BUT DEADLY "; 

2101 PRINT"MUSHR00M3. AS BALDAYS, YOU 

ARE ITS SOLE DEFENDER. THE MTURSGR "; 

2102 PRI NT"KEYS NILL SHIFT YOU ABOUT & T 
HE B3PACE KEY FIRES YOUR LASER." 

2 103 PRI NT"B THE END IS INEVITABLE: IF Y 
OU 1 RE HIT BVOU'RE DEAD. BUT TRY AND "i 
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2104 PR INT " NOTCH UP fi MEANSJSCORE BEFORE 
YOU GO." 

2105 PRINTTAB <49 )" A.PRESS ANY KEY TO PLA 
YBB" •REM ** PRINT MUSHROOMS ONE BY ONE 

2 106 FORK=ITO 160 :POKEMU+24,15:POKEMU+4,1 
29 !POKEMU + 5,3 :POKEMU+1,35 :POKEMU,80 
2107 FORT = 0TO50:NEXT:POKEMU+4,0 :POKEMU+5 
,0 : IFK < 160THENPR I NT "Baw i! ; 

2103 IFK/40=1 NT <K/'40 ) ANDK< 160THENPR I NT " B 
" ; s REM ** SPACE MiJSHROOM LINES 

2109 IFK>159THENPOKE2023,21 1 :P0KE5S295,1 
0 : REM ** POKE LAS'T ONE TO STOP LINE FEED 

2110 NEXT:POKE198,0 :WAITI98,1 :PRINT M J":R 
EM ** WAIT FOR KEY PRESS 

2120 RETURN 

2939 REM ** PRINT RANDOM MUSHROOMS ROUTI 
NE 

3000 Ll= I NT < RND < 1 ) #37 } 

3001 M=24 

3305 V = RND <1)*3 

33 10 PR INTLEFT$<DN$,M)R IGHT$<AC$,UJ) "Qtfvg 
":PRINTLEFT$<DN4;,M>RIGHT$<AC$,W+V> "oavm" 

3012 POKEMU+24,15:P0KEMU+4,129:POKEMU+1, 
RND<1)*160+34:POKEMU,RND<1)*203+52 

3013 FORT = 0TO50:NEXT:POKEMU +4,0:P0KE646, 

6 :SYS709:P0KE646,10:SYS709 

30 15 PR I NTLEFT$ ( DN$, 25 ) " gl" ! REM ** CURSOR 
DOLflM ON BOTTOM LINE SCROLLS SCREEN UP 1 
30 16 IFY >255THENP0KEV1 + 16,1 :POKEVI,Y-255 
:GOTO3013 

3017 POKEVI,Y: REM ** KEEPS SHIP SPRITE I 
N STEP WITH PRINTING 

30 18 POKEVI + 1 ,X :P =INT < X/8)*40 +INT(Y/8)+S 
N-2:CO=P+MU:POKEV1+21,1 
3020 RETURN 

3999 REM ** FIRING ROUTINE 

4000 POKEVI+21,3:IFPEEK<VI+16)=1THENPOKE 
VI + 16,3 :POKEVI+2,Y-255 

4001 IFY < 256THENPOKEVI + 16,0:POKEVI+2,Y 
4005 P = I NT (. X/8 ) *40+ I NT ( Y/8 > +SN-2 : CO=P+MU 
:FORF=56T072:POKEVI+3,F: REM ** LASER 

40 10 IFPEEK(VI+31 > >1THENF = 72 :GOSUB6000:R 
EM ** GO TO HIT & SCORE ROUTINE 
4020 NEXT:PQKEMU+25,15:P0KEMU+4,129:POKE 
MU+1,RND(1)*35+34:POKEMU,RND<1)*149+52 
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4060 FORT = 0TO100 !NEXT:POKEMU +4,0 :POKEVI + 
21,1 : RETURN 

4999 REM ** COLLISION ROUTINE: REDEFINE 
ALL SPRITES TO EXPLOSION AT SHIP POS. 

5000 POKEVI+2 1,7 :FORK =0TO2:POKE2040 + K , 15 
:POKEVI+1+K*£,X:POKEVI+39+K,8 :NEXT 

5002 IFY<256THENP0KEVI,Y:POKEVI+2,Y-8:IF 
Y + S < 256THENP0KEVI+4,Y+8 

5003 IFY + 8 >255THENP0KEV1 + 16,4:POKEVI+4,Y 
+3-255 

5004 IFY>255THENP0KEVI+16,5:P0KEVI,Y-255 

5005 IFY-8 >255THENP0KEV1 + 16,7:POKEVI+2,Y 
-8-255 

5006 IFY-8 < 256THENP0KEVI+2,Y-8 

5007 IFY<256THENP0KEVI,Y 

5008 IFY+8 < 256THENP0KEVI+4,Y + 8 

5010 REM ** EXPLOSION SHOUJN, NOUJ SOUND, 
THEN RESET SPRITES FOR NEXT GAME 
50 15 POKEMU +24,15 :POKEMU+ 5,47 :POKEMU+ 4,1 
29 :POKEMU+1 ,3:POKEMU,103 :POKEMU+4,128 
5016 FORT=0TO500:NEXT:POKEMU+4,0:POKEMU+ 
1,43:POKEMU,127:POKEMU+4,129 :FORT=0TO500 
50 17 NEXT:POKEMU+ 4,0:POKEMU+1,61 :POKEMU, 
126 :POKEMU+4,129 :FORT = 0TO200:NEXT 
50 19 POKEMU +4,0:POKEMU + 1,4 :POKEMU,139 : PO 
KEMU+4,129:FORT=0TO50:NEXT:POKEMU+4,0 
5020 POKEMU+1,0 :POKEMU,0:PRINT M J":POKEVI 
+21,0:POKEV1+16,0:FORK=1T02:POKE2040+K,K 
+ 13 

5025 POKEVI+39+K,K+6:NEXT:POKE2040,13 : PO 
KEVI+39,5:POKEMU+5,0 :POKEMU+6,0 

5030 FORV =1T07:POKEMU +24,15:POKEMU + 4,17: 
ONVGOTO5031,5032,5033,5034,5035,5036,503 
7 

5031 POKEMU +1,57 :POKEMU,172 :GOTO5038: REM 
** PLAY NOTE FOR LINE PRINTED 

5032 POKEMU+1,54:POKEMU,111:GOTO5038 

5033 POKEMU+1,51 :POKEMU,97 :GOTO5038 

5034 POKEMU + 1,48:P0KEMU,127:GOTO5038 

5035 POKEMU +1 ,45:POKEMU,198:GOTO5038 

5036 POKEMU+1,43 :POKEMU,52 :GOTO5038 

5037 POKEMU+1,40:POKEMU,200 :GOTO5038 

5038 POKEMU+4,16 :FORT = 0TO50:NEXT:POKEMU + 
4 ,0 
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5040 PRINTTAB<6>"DYOU HAVE BEEN DESTROYE 
D - YOUR SCORE IS";C; ” 

5050 PRINT" ANOTHER GAME? ANY KEY TO ST 
ART":NEXTV: REM ** REPEATS MESSAGE 
5070 POKE 198,0 :U)A ITI 98,1 : PR I NT " :C=0:Y = 

152 :POKEVI, Y:REM ** RESET ON KEY PRESS 
5080 RETURN:REM ** START NEW GAME 

5999 REM ** HIT & SCORE ROUTINE 

6000 POKEV1+21,7:POKEV 1+5,64:IFPEEKCVI+l 
6 > =30RPEEK(VI + 16 > = 1THENPOKEV1 + 16,7:POKEV 
I+4,Y-255 

600 1 IFY<256THENP0KEVI+4,Y: REM ** EXPLOS 
ION AT MUSHROOM POSITION 

6002 FORSC = 80TO240STEP40:POKEP-SC,32 :POK 
ECO-SC,0 :NEXT:C=C+1 : REM ** ERASE + SCORE 

6003 POKEMU+24,15 :POKEMU+5,47 :POKEMU+6,5 
:POKEMU+4,129 :POKEMU+1,4 :POKEMU,208 :POKE 
MU+4,128 

6004 FORT = 0TO100 :NEXT:POKEMU+4,0 :POKEMU + 
5,0:POKEMU+6,0 

6005 F =72 
6010 RETURN 

6999 REM ** CHARACTER SET DATA (ALL 256 
CHARACTERS, NORMAL & REVERSE, SET 1> 

7000 DATA 127,115,119,119,112,115,127,0,! 
27,115,115,127,115,115,115,0 

70 10 DATA 127,115,115,126,115,115,127,0,1 

27,112,112,112,112,112,127,0 

7020 DATA 126,115,115,115,115,115,126,0,1 

27,112,112,126,112,112,127,0 

7030 DATA 127,112,112,126,112,122,112,0,1 

27,112,112,115,115,115,127,0 

7040 DATAI 15,115,115,127,115,115,115,0,2 

8,23,28,28,23,28,28,0 

7050 DATA7,7,7,7,103,103,127,0,115,118,1 

24.120.124.1 18,1 15,0 

7060 DATAI 12,112,112,112,112,112,127,0,1 

19,127,107,107,99,99,99,0 

7070 DATA 127,115,115,115,115,115,115,0,1 

27,115,115,115,115,115,127,0 

7080 DATA 127,115,115,127,112,112,112,0,1 

27.115.1 15,1 15,1 15,127,14,0 

7090 DATA 127,115,115,127,124,118,115,0,1 
27,112,112,127,3,3,127,0 
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7 100 DATA 127,28,28,28,28,28,28,0,1 15,115 
,115,115,115,115,127,0 

7 110 DATAI 15,115,1 15,115,1 15,62,28,0,99, 
99,99,107,107,127,119,0 

7 120 DATAI 15,115,115,62,115,115,115,0,11 
5,115,115,127,28,28,28,0 

7130 DATA 127,7,14,28,56,112,127,0,62,56, 
56,56,56,56,62,0 

7140 DATA63,56,56,126,56,56,127,0,62,14, 
14,14,14,14,62,0 

7150 DATA8,28,62,28,28,28,28,0,0,16,63,1 
27,63,16,0,0 

7160 DATA0,0,0,0,0,0,0,0,28,28,28,28,0,0 
,28,0 

7170 DATAI 15,115,115,0,0,0,0,0,118,118,2 
55,118,255,118,118,0 

7180 DATA28,127,112,127,3,127,28,0,115,1 
19,14,28,56,119,103,0 

7190 DATA 126,118,126,60,127,118,127,0,7, 
14,28,0,0,0,0,0 

7200 DATA 14,28,56,56,56,28,14,0,56,28,14 
,14,14,28,56,0 

7210 DATA0,118,60,255,60,118,0,0,0,28,28 
,127,28,28,0,0 

7220 DATA0,0,0,0,0,28,28,56,0,0,0,127,0, 

0 , 0,0 

7230 DATA0,0,0,0,0,28,28,0,0,3,7,14 ,28,5 

6 , 112,0 

7240 DATA 127,1 15,119,127,123,1 15,127,0,1 
24,28,28,26,28,23,127,0 

7250 DATA 127,3,3,127,1 12,1 12,127,0,127,7 
,7,62,7,7,127,0 

7260 DATAI 12,112,1 18,1 18,127,6,6,0,127,1 
12,127,3,3,3,127,0 

7270 DATA 127,112,1 12,127,1 15,1 15,127,0,1 
27,7,7,7,7,7,7,0 

7280 DATA 127,115,1 15,62,115,115,127,0,12 
7,115,1 15,127,3,3,3,0 

7290 DATA0,0,2S,0,0,28,0,0,0,0,23,0,0,28 
,23,56 

7300 DATA 15,28,56,1 12,56,23,15,0,0,0,127 
,0,127,0,0,0 

7310 DATA 120,23,14,7,14,28,120,0,127,103 
,31,28,28,0,28,0 
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7320 DATA0,0,0,255,255,0,0,0,8,28,62,127 
,127,28,62,0 

7330 DATA24,24,24,24,24,24,24,24,0,0,0,2 
55,255,0,0,0 

7340 DATA0,0,255,255,0,0,0,0,0,255,255,0 

, 0 , 0 , 0,0 

7350 DATA0,0,0,0,255,255,0,0,48,48,48,48 
,43,48,48,48 

7360 DATA 12,12,12,12,12,12,12,12,0,0,0,2 

24.240.56.24.24 

7370 DATA24,24,28,15,7,0,0,0,24,24,56,24 
0,224,0,0,0 

7380 DATA 192,132,192,192,182,192,255,255 
,192,224,112,56,28,14,7,3 

7390 DATA3,7,14,28,56,112,224,192,255,25 

5.192.192.192.192.192.192 

7400 DATA255,255,3,3,3,3,3,3,0,60,126,12 
6,126,126,60,0 

7410 DATA0,0,0,0,0,255,255,0,54,127,127, 
127,62,23,8,0 

7420 DATA96,96,96,96,96,96,96,96,0,0,0,7 
,15,23,24,24 

7430 DATA 195,231,126,60,60,126,231,195,0 
,60,126,102,102,126,60,0 

7440 DATA24,24,102,102,24,24,60,0,6,6,6, 

6 , 6 , 6 , 6,6 

7450 DATA8,28,62,127,62,28,8,0,24,24,24, 

255.255.24 ,24,24 

7460 DATA 192,192,48,43,192,192,48,48,24, 
24 ,24,24,24,24,24,24 

7470 DATA0,0,3,126,246,113,118,0,255,127 
,63,31,15,7,3,1 

7480 DATA0,0,0,0,0,0,0,0,240,240,240,240 
,240,240,240,240 

7490 DATA0,0,0,0,255,255,255,255,255,0,0 

, 0,0 , 0 , 0,0 

7500 DATA0,0,0,0,0,0,0,255,192,192,192,1 

92.192.192.192.192 

7510 DATA204,204,51,51,204,204,51,51,3,3 
,3,3,3,3,3,3 

7520 DATA0,0,0,0,204,204,51,51,255,254,2 
52,248,240,224,192,128 

7530 DATA3,3,3,3,3,3,3,3,24,24,24,31 ,31 , 
24 ,24,24 
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7540 DATA0,0,0,0,15,15/15,15,24,24,24,31 
,31,0,0,0 

7550 DATA0,0,0,248,248,24,24,24,0,0,0,0, 
0,0,255,255 

7560 DATA0,0,0,31,31,24,24,24,24,24,24,2 
55,255,0,0,0 

7570 DATA0,0,0,255,255,24,24,24,24,24,24 
,248,248,24,24,24 

7580 DATA 192,192,192,192,192,192,192,192 
,224 ,224,224,224,224,224,224,224 
7590 DATA7,7,7,7,7,7,7,7,255,255,0,0,0,0 
, 0,0 

7600 DATA255,255,255,0,0,0,0,0,0,0,0,0,0 
,255,255,255 

7610 DATA3,3,3,3,3,3,255,255,0,0,0,0,240 
,240,240,240 

7620 DATA 15,15,15,15,0,0,0,0,24,24,24,24 
8,248,0,0,0 

7630 DATA240,240,240,240,0,0,0,0,240,240 
,240,240,15,15,15,15 

7640 DATA 126,140,136,136,143,140,128,255 

,128,140,140,128,140,140,140,255 

7650 DATA 128,140,140,129,140,140,128,255 

,128,143,143,143,143,143,128,255 

TS60 DATA 129,140,140,140,140,140,129,255 

,128,143,143,129,143,143,128,255 

7670 DATA 128,143,143,129,143,143,143,255 

,128,143,143,140,140,140,128,255 

7680 DATA 140,140,140,128,140,140,140,255 

,227,227,227,£27,227,227,227,255 

7890 DATA248,£48,243,248,152,152,128,255 

,140,137,131,135,131,137,140,255 

7700 DATA 143,143,143,143,143,143,128,255 

,136,128,148,148,156,156,156,255 

7710 DATA 128,140,140,140,140,140,140,255 

,128,140,140,140,140,140,128,255 

7720 DATA 128,140,140,128,143,143,143,255 

,128,140,140,140,140,123,241,255 

7730 DATA 128,140,140,128,131,137,140,255 

,128,143,143,128,252,252,128,255 

7740 DATA 128,227,227,227,227,227,227,255 

,140,140,140,140,140,140,128,255 

7750 DATA 140,140,140,140,140,193,227,255 

,156,156,156,148,148,128,136,255 
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7760 DATA 140,140,140,193,140,140,140,255 

,140,140,140,123,227,227,227,255 

7770 DATA 128,248,24 1,227,199,143,128,255 

,193,199,199,199,199,199,193,255 

7780 DATA 192,199,199,129,199,199r128,255 

,193,241,241,241,241,241,193,255 

7790 DATA247,227,193,227,227,227,227,255 

,255,239,192,128,192,239,255,255 

7800 DATA255,255,255,255,255,255,255,255 

,227,227 ,227,227,255,255,227,255 

78 10 DATA 140,140,140,255,255,255,255,255 
,137,137,0,137,0,137,137,255 

7820 DATA227,128,143,128,252,128,227,255 

,140,136,241,227,199,136,152,255 

7830 DATA 129,137,129,195,128,137,128,255 

,248,24 1 ,227,255,255,255,255,255 

7840 DATA241,227,199,199,199,227,241,255 

, 199,227,241 ,241,241 ,227,199,255 

7850 DATA255,137,195,0,195,137,255,255,2 

55,227,227,128,227,227,255,255 

7860 DATA255,255,255,255,255,227,227,199 

,255,255,255,128,255,255,255,255 

7870 DATA255,255,255,255,255,227,227,255 

,255,252,248,24 1 ,227,199,143,255 

7880 DATA 128,140,136,128,132,140,128,255 

,131 ,227,227,227,227,227,123,255 

7890 DATA 128,252,252,128,143,143,128,255 

, 128,243,248,193,248,248,128,255 

7900 DATA 143,143,137,137,128,249,249,255 

,128,143,128,252,252,252,128,255 

79 10 DATA 128,143,143,128,140,140,128,255 
, 128,243,243,248,243,248,243,255 

7920 DATA 128,140,140,193,140,140,128,255 

,128,140,140,128,252,252,252,255 

7930 DATA255,255,227,255,255,227,255,255 

,255,255,227,255,255,227,227,199 

7940 DATA240,227,199,143,199,227,240,255 

,255,255,128,255,128,255,255,255 

7950 DATA 135,227,24 1 ,248,24 1 ,227,135,255 

, 128,152,224,227,227,255,227,255 

7960 DATA255,255,255,0,0,255,255,255,247 

,227,193,128,128,227,193,255 

7970 DATA231,231,231,231,231,231,231,231 

,255,255,255,0,0,255,255,255 
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7980 DATA255,£55,0,0,255,255',255,255,£55 
,0,0,255, £55,£55,£55, £55 

7990 DATA255,255,255,255,0,0,255,255,207 

,207,207,207,207,207,207 ,207 

8000 DATA243,£43,243,243,243,243,243,243 

,255,255,255,31,15,199,231,231 

8010 DATA231,231,227,240,248,255,255,255 

,231,231,199,15,31,255,255,255 

8020 DATA63,83,63,63,63,63,0,0,63,31,143 

,199,£27,£41,243,252 

8030 DATA252,248,241,227,199,143,31,63,0 
,0,63,63,63,63,63,63 

8040 DATA0,0,252,252,252,252,252,252,255 

,195,129,129,129,129,195,255 

8050 DATA255,255,255,255,255,0,0,£55,201 

,128,128,128,193,227,247,255 

8060 DATA 159,159,159,159,159,159,159,159 

,255,255,255,248,240,227,231,231 

8070 DATA60,£4,129,195,195,129,24,60,255 

,195,129,153,153,129,195,255 

8080 DATA231,231,153,153,231,231,195,255 

,249,249,249,249,249,249,249,249 

8090 DATA247,227,193,128,193,227,247,255 

,231,231,231,0,0,231,231,231 

8100 DATA63,63,£07,207,63,63,207,207,231 

,£31,231,231,231,231,231,231 

8110 DATA255,£55,252,129,9,137,137,255,0 

,128,192,224,240,248,252,254 

8120 DATA255,255,255,255,255,255,255,255 

,15,15,15,15,15,15,15,15 

8130 DATA255,£55,255,255,0,0,0,0,0,255,2 
55,255,255,255,255,255 

8140 DATA£55,£55,255,255,255,255,255,0,6 
3,63,63,63,63,63,63,63 

8150 DATASI,51,204,204,51,51,204,204,252 
,£52,252,252,252,252,252,252 
3160 DATA255,255,255,255,51,51,204,204,0 
,1,3,7,15,31,63,127 

8170 DATA252,252,252,252,252,252,252,252 
,231,231,231,224,224,231,231,231 
3180 DATA255,255,255,255,240,240,240,240 
,231,231,231,££4,224,255,255,255 
8 130 DATA£55,£55,255,7,7,£3 1 ,231,231 ,255 
,255,255,255,255,255,0 ,0 
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3200 DATA£55,£55,£55,££4,££4,£31,231,231 
,231,231,231,0,0,255,255,255 
8210 DATA255,£55,255,0,0,231,231,231,231 
,231,231,7,7,231,231,231 

8220 DATA63,63,63,63,63,63,63,63,31 ,3 1,3 
1 ,31 ,31,31 ,31,31 

8230 DATA248,248,243,243,248,243,248,248 

,0,0,255,255,255,255,255,255 

3240 DATA0,0,0,255,255,255,255,255,255,2 

55,255,255,255,0,0,0 

8250 DATA252,252,252,252,252,252,0,0,255 
,255,255,255,15,15,15,15 

8260 DATA240,240,240,240,255,255,255,255 
,231,231,231,7,7,255,255,255 
8270 DATA 15,15,15,15,255,255,255,255,15, 
15,15,15,240,240,240,240 

3280 REM ** IF YOU DON‘T FANCY TYPING TH 
AT LOT, TO COPY THE SET IN ROM CHÀNGE 
3290 REM ** LINE 10 TO: P0KE56333,127 : PO 
KE1,51: FORI=0TO2047 s POKECH +I,PEEK(VI+I ) : 
8300 REM ** NEXT: POKE 1 ,55 : P0KE56333,1 £9 : 
GO3UB750 (USE ABBRS.> & OMIT 6993 TO END 
3310 REM ** TO PCN - THIS IS THE UPPER C 
A3E HALF OF MY OWN CHARACTER SET: IF YOU 
8320 REM ** LIKE IT AND LIISH TO INCLUDE 
IN THIS PROGRAM OR TO GlVE A SEPARATE 
8330 REM ** LISTING USING THE LOADER IN 
LINE 10 (FORI=0TO2047...NEXT) OR COMBINE 
8340 REM ** L1I TH LOLIER CASE HALF (INCLUD 
ED IN MINELAY ON NEXT TAPE), PLEASE GET 
8350 REM ** IN TOUCH WITH ME. NOTE: ALL 
ALPHANUMERICS & PUNCTUATION REVISED BUT 
3360 REM ** GRAPHICS AS STANDARD - SO FA 
R: COMPLETE SET NORMALLY LOCATED AT 8192 
3370 REM ** ($2000), POKING 53272 LJITH £ 

5/27 OR 12288($3000), 29/31; BASIC ABOVE 
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527 


Mei gioco del postino il vostro compito è quello di consegnare le lette¬ 
le raccolte dalle cassette postali alle persone che aspettano con ansia 
3 loro posta, compito abbastanza facile nonostante il poco tempo a 
:!sposizione se non fosse per la presenza del cane. Mentre cerca di az¬ 
zannarvi le gambe, cosa che gli piace moltissimo, ha il vantaggio di po¬ 
tersi muovere in diagonale cosa che voi invece non potete fare, voi 
5 ete però un po' più veloci del cane su percorso rettilineo e sopravvi- 
.erete solo se gli incroci (che fermano voi ma non il cane) non incal¬ 
zeranno il vostro percorso. 

=er vostra fortuna voi potete scegliere, prima di partire, il numero di 
ncroci da attraversare in modo da poter terminare il vostro lavoro. 


10 

REM 

******************************* 

12 

REM 

* * 


** 

15 

REM 

** 

MR.POSTMAN 

** 

17 

REM 

** 


** 

20 

REM 

** 

ADAPTED FOR THE 

** 

25 

REM 

** 

COMMODORE 64 

** 

30 

REM 

* * 

BY 

** 

35 

REM 

** 

D.A.PONT ING 

** 

37 

REM 

** 


** 

40 

REM 

** 

1-8-83 

** 

45 

REM 

** 


** 

50 

52 

REM ******************************* 


£5 < CURSClR DOUJN > 
53 SIDE*="| 


REM 40 < CURSOR RIGHT > 


54 po$="a ai ai s m :hs=0 

55 P0KE53281,1:POKE53£80,1 :PRINT"Ì4J" 

56 V=53248 :POKE650,128 :DIMX(36),Y<36) 

57 DEF FIMA ( 0 ) = I NT < SOR < < ABS < < PX-HX ) /8 > t2 
>+<ABS<(PY-HY>/8>t2> > 

58 GOSUB9000 
60 GOSUB5500 
62 PQKE53281,1 
65 GOSUB7000 
70 GOSUB5000 
75 POKE198,0 
80 FOR 1 = 1TO£ 

100 GETMO$ 


POKE53280,1:PR1NT'yU* 
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105 IFMO$=". "THENIFFL<>1THENX1=X+ 4 :FL=1 : 
POKE2040,192 :POKES + 15,39 

110 IFMO*=","THENIFFL<>2THENX1=X-4 :FL=2 : 
POKE2040,193!POKES +15,25 

120 IFMO$= ,, X ,, THENIFFL< >3THENY 1 = Y+4 : FL = 3 : 

: POKE2040,193 :POKES+15,45 

130 IFMO$="Z"THENIFFL<>4THENY1=Y-4:FL=4: 
POKE2040,193;POKES + 15,15 
140 : 

145 P0KEV,X1+256*<X1>255):POKEV+l,Y1 :IFX 
1>255THENP0KEV + 16,PEEK <V+16 >OR1 

146 IFX1<256THENP0KEV+16,PEEK<V+16)AND25 

4 

147 FL=FL*<PEEK<V+31)AND 1> 

148 POKES + 18,33 s IFFLTHENX1=X:Y1=Y: GOTO 14 

5 

149 X = X1 :Y = Y1 

150 POKES+15,20:POKES+18,32 

200 IFLTR=1THENIFX >HX-4ANOX<HX+4THENIFY> 
HY-4ANDYCHY+4THENGOSUB900 

250 IFLTR=0THENIFX>PX-8ANDX<PX+8THENIFY> 

PY-8ANDY < PY +8THENGOSUB850 

300 POKES +18,32 :NEXTI 

500 DY=DY-4*(DY<Y)+4*(DY>Y> 

510 IFDX<XTHENDX=DX+5!POKE2041,197:REM P 
OS ITION DOG HERE 

530 IFDX >XTHENDX =DX -5 t POKE2041,196 

800 POKEV+2,DX+256* CDX >255):POKEV +3,DY: I 

FDX >255THENP0KEV+16,PEEK <V + 16)0R2 

805 IFDX<256THENP0KEV+ 16 ,PEEK <V + 16>AND25 

3 

8 10 IFDX >X-8ANDDX<X + 8THENIFDY >Y-8ANDDY< Y 
+8THENGOSUB6000 

820 TM=TM-1 :G0SUB7999: I FTM= < 0THEN8000 
830 GOTO80 

850 LTR =1 :SC =SC +10:G0SUB7999:GOTO5300 
900 LTR =0 

9 10 0=1 NT < SQR << ABS <<PX-HX)/8>t2> + <ABS<<P 
Y-HY>/8>t2>)> 

920 SC =SC +0 :G0SUB7999:GOSUB5300:GOTO5000 
5000 : 

5003 PX=im"<RND<1)*17)*2+3:PY=INT <RND <1) 
*8 > *2+9 

5004 IFPEEK < 1024 + PY*40 + PX)<>320RPEEK<106 

4 +PY*40 +PX > <>32THEN5003 
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5005 IFPEEK <1104+PY*40+PX)< >3£THEN5003 

5006 LTR=0:PX=20+PX*8:PY=50+PY*8 

5007 POKEV+6,PX+256* <PX>£55):P0KEV+7,PYi 
IFPX >£55THENP0KEV+16, PEEK <V+16>0R8 

5008 IFPX<256THENP0KEV+16,PEEK <V +16>AND£ 
47 

5030 HX = 3 +INT < RND(1>* 17)*2 :HY=INT<RND<1) 
*8 > *2+9 

5040 IFPEEK <1024+HY*40+HX)<>320RPEEK<106 
4+HY*40+HX)< >32THEN5030 
5050 : 

5055 HX=16+HX*8:HY=50+HY*8 

5057 IF <HX >PX-20ANOHX<PX+20)AND(HY>PY-20 

ANDHY < PY +20)THEN5030 

5060 POKEV+4,HX +256 * < HX>255 >:POKEV + 5,HY: 
IFHX >255THENP0KEV+16,PEEK <V+16)0R4 
5065 IFHX<£56THENP0KEV+16,PEEK(V+16)AND2 
49 

5070 X1=3£0:Y1=2£0:X=X1:Y=Y1 
5100 : 

5200 : 

5210 S = 54272 s FORT=0TO£8:POKES + T,0!NEXTT 
5220 POKES +24,15 :POKES+14,20 :POKES+15,20 
:POKES+19,32 :POKES+20,0 :POKES +18,128 
5290 RETURN 

5300 S=54£72:P0KES,45!POKES+1,24:P0KES+7 

,52 !POKES+8,38 

5310 POKES +5,50 '• POKES + 12,50 

5320 POKES+6,245:POKES+13,245:POKES+20,2 

45:POKES+2,£55:POKES+24,15 

5325 FORT=1T05 

5330 POKES+4,65 :POKES +11,33 

5335 FORW= 1 TO70 : NEXTUI 

5340 POKES+4,64:P0KES+11,32 

5350 FORW=1TO20: NEXTUI,T 

5400 GOSUB5200:RETURN 

5500 PRINT" HOUJ MANY STREETS UHDULD YOU 
L1KE":PRINT”THERE TO BE “; 

5520 PRINT" <ANY NUMBER 1 -36> " 

5550 INPUTLB : IFLB < 1ORLB >36THENPR I NT " CXU" 
:GOTO5500 
5800 RETURN 
6000 : 

6005 POKES,20 :POKES+1,10iPOKES+5,9 «POKES 
+6,240 
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6010 FORT =1TO10 

6020 POKE2040,192 !POKE2041,196 

6025 POKES+4,33 

6030 FORDL = 1TO10 :NEXTDL 

6040 POKE2040,193JPOKE2041,197 

6045 POKES+4,32 

6050 FORDL=ITO 10 :NEXTDL 

6060 NEXTT 

6070 X=316 :Y=216 : X1=X:Y1=Y:TM=TM-50 
6030 DX = 40 :DY=80: 

6100 RETURN 

7000 REM * INITIAL SCREEN DISPLAY * 

7005 AB$="«" :FORT=1T033:BB$=BB$+ 

.AB$=AB$+"H" :NEXTT 

7007 AB$=AB$+ "Si" : BB$=BB$+ 

70 10 PR INT 11 aiBfM"fìB$; :FORT= 1T02 1 : PR INTBB* 
; : NEXTT 

7020 PR INTLEFT $<AB$,39); : PR I NT 11 ■■ ■■■■■■» " 
; : PR I NT " MM" ; 

7100 FORF = 1TOLB 

7 110 Y= I NT (. RNO < 1 > *4 ) *6+3:X = I NT < RND <1> *9 > 
*4+3 

7 120 IFPEEK<1024 +Y*40 +X)< >320RPEEK(1064 + 
Y *40 +X)<>32THEN7110 
7125 Y<F > =Y: X <F )=X 

7130 PRINT"a"LEFT*<DO* r Y>LEFT$<SI$,X)PO$ 
:NEXTF 

7820 REM: POKEV,X+£56* <X >255 >:POKEV+1 , Y 

7840 SC =0 :TM=300 

7850 LTR=0:PY=Y<LB):PX=X(LB) 

7900 DY=80:DX=40 

7905 POKEV +2, DX +256*(DX >255):P0KEV+3,DY 
7999 PRINT-ai-TABCS)"SC0RE"TA6<15>SCTAB< 
25) "TIME "TAB <34 >TM"|| M ; : RETURN 
3000 REM ******* END OF GAME ******** 
8005 PRINT" J" :PGKES,30 :POKES + 1,10:POKES + 
5,20:POKES+6,0 

8010 PRINT"3" :POKE53280,0 :P0KE53281,0:PR 
INT"H":POKE198,0 :POKES+4,17 
8020 PR INT " JSSEIHH YOU HAVE RUN OUT OF 

TIME":FORT =1TO50 

8030 PRINT" YOU SCORED "SC" PO IN 

TS" 

8035 IFSC< =HSTHEN8060 



il postino 331 


8040 HS=SC:PR INT"HD UJELL DONE , THAT'S A 
NEW HIGH SCORE ! ! " 

8050 PRINT" H PLEASE ENTER YOUR NAME"; : I 
NPUTH$:GOTO8070 

8060 PRINT"B THE HIGH-SCORE IS “HS 11 PO 
INTS"!PRINT"B BY POSTMAN "H$ 

8070 PORT=ITO 1000:NEXT 

8080 PRINT-iHHB PRESS ANY KEY TO PLAY 
AGAIN • 

8090 GETRR*: IFRR*=""THENPOKES+4,16 : FORT = 

1TO40:NEXTT:GOTO8010 

8095 PRINT"J" ; :GOTO60 

8100 GOTO3100 

9000 V =53248 

9010 FORW=0TO127:READA:POKE192*64+W,A : NE 
XTW 

9020 FORW=0TOG3: READA :POKE200*64 +W,A :NEX 
TU 

9030 FORW=0TO127 : READA :POKE196 *64 +W,A : NE 
XTW 

9035 FORW=0TO63:REAOA:POKE201*64+W,A:NEX 
TW 

9040 POKE2040,192 :POKE2041,196:POKE2042, 
200 :POKE2043,20 1 

9050 POKEV,0 :POKEV+1,0 :POKEV+ 2,0 :POKEV+3 
,0 :POKEV+ 4,0 :POKEV+5,0 :POKEV+2 1,15 
9060 POKEV+39,10 :POKEV+40,9 :POKEV+ 41,4 :P 
OKEV+42,2 

9200 PRINT"__ 

II 


9210 PRINT 
\ I " 

9220 PRINT 

\ I " 

9230 PRINT 

\ I " 

9240 PRINT 

\1 * 



I I I . I 

I I_I I_I 


i r\ a i—i i 

i i \/ 11 i i 

i i 11—i i 

li 11 i i 


9250 PRINT:PRINT:PRINT" BY DAVE PO 

NTING 

9300 PRINT"HH FIRST COLLECT A LETTER 

FROM THE FLASHING POST-BOX."; 

9310 PRINT"THEN DEL IVER IT TO THE 

LITTLE PURPLE HOUSE," 
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9350 PRINT" YOU HAVE LIMITED TIME, AND I 
F YOU ARE ATTACKED BY THE DOG "; 

9360 PRINT "YOU UIILL L06E TIME" 

9400 PRINT " HM MOVE UJITH:- < CLEFT) > 
(RIGHT)" 

9405 PRINT" Z (UP> X <D 

OWN) " 

94 10 PR INT “ Hg| PRESS ANY KEY TO STAR 

T" 

9700 GETA$: IFAS>= " "THEN9700 
9999 PRINT"U" : RETURN 

20000 DATA 48, 0, 0, 124, 0, 0, 212, 0, 

0 , 202 , 0 , 0 

20003 DATA 254, 0, 0, 228, 0, 0, 124, 0, 

0, 56, 128, 0 

20004 DATA 125, 0, 0, 186, 0, 0, 184, 0, 

0, 184, 0, 0 

20005 DATA 36, 0, 0, 34, 0, 0, 66, 0, 0, 
130, 0, 0 

20006 DATA 99, 128, 0, 0, 0, 0, 0, 0, 0, 

0 , 0 , 0 

20007 DATA 0, 0, 0, 0 

20010 DATA 16, 0, 0, 56, 0, 0, 56, 0, 0, 
56, 0, 0 

20013 DATA 16, 0, 0, 16, 0, 0, 60, 0, 0, 

122 , 0 , 0 

20014 DATA 186, 0, 0, 56, 0, 0, 56, 0, 0 
, 48, 0, 0 

200 15 DATA 72, 0, 0, 68, 0, 0, 34, 0, 0, 

102 , 0 , 0 

20016 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

0 , 0 

20017 DATA 0, 0, 0, 0 

20100 DATA 1, 16, 0, 3, 144, 0, 7, 208, 

0, 15, 240, 0 

20103 DATA 31, 240, 0, 127, 252, 0, 63, 

248, 0, 51, 24, 0 

20104 DATA 51, 24, 0, 63, 248, 0, 63, 25 
5, 252, 63, 248, 6 

20105 DATA 49, 153, 230, 49, 153, 230, 6 

3, 153, 38, 255, 255, 254 

20106 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 r 

0 , 0 

20107 DATA 0, 0, 0, 0 
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20200 DATA 0, 0/ 0, 0, 0, 0, 36, 0, 0, 1 

6 , 0 , 0 

20203 DATA 56, 1, 0, 2 16, 1, 0, 248, 2, 

0, 152, 4, 0 

20204 DATA 31, 252, 0, 63, 254, 0, 31, 2 

52, 0, 40, 12, 0 

20205 DATA 68, 18, 0, 68, 17, 0, 68, 17, 

0, 204, 51, 0 

20206 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

0 , 0 

20207 DATA 0, 0, 0, 0 

20220 DATA 0, 0, 0, 0, 144, 0, 0, 32, 0, 

0 , 60, 0 

20223 DATA 128, 44, 0, 128, 60, 0, 64, 5 

2, 0, 32, 48, 0 

20224 DATA 63, 240, 0, 127, 248, 0, 63, 

240, 0, 48, 48, 0 

20225 DATA 72, 72, 0, 136, 72, 0, 136, 7 

2, 0, 204, 108, 0 

20226 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

0 , 0 

20227 DATA 0, 0, 0, 0 

20300 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

0 , 0 

20303 DATA 0, 0, 0, 0, 0, 0, 1, 252, 0, 

15, 255, 128 

20304 DATA 15, 255, 128, 3, 254, 0, 3, 6 

, 0, 3, 254, 0 


20305 

DATA 

3, 

254, 

0 , 

3, 142, 

0, 3, 

142 

0, 3 

, 142 

, 0 






20306 

DATA 

3, 

254 , 

0 , 

3, 254, 

0, 3, 

254 

0, 3 

, 254 

, 0 






20307 

DATA 

0 , 

0 , 0 

, 0 
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Siete ai confini del Tempo, inseguiti da vicino da una flotta di veicoli 
spaziali alieni. Ma potete ancora salvarvi grazie ad un paio di trucchi. 
Avete infatti la possibilità di sorvegliare le estremità del tunnel del 
Tempo creando campi di energia in corrispondenza di ciascuna delle 
quattro aperture del sistema. Ogni volta però che applicate un campo 
di energia in qualsiasi altro posto, diverso dalle estremità del tunnel 
del Tempo, la forza vi risucchia distruggendovi, mentre applicandolo 
all'estremità di un tunnel non occupato avete finito, l comandanti pas¬ 
sivi che permettono il passaggio a troppi alieni troveranno il loro po¬ 
tere indebolito e il gioco avrà termine. 


10 

11 
1£ 
14 
16 
18 
£0 
EE 
E4 
£6 
50 
100 


REM 

REM 

***************************,,, 
** ** 

REM 

** 

ENERGY FIELDS 

* * 

REM 

** 

ADAPTED FOR THE 

** 

REM 

** 

COMMODORE 64 

** 

REM 

* * 

BY 

** 

REM 

** 

D.A.PONTING 

* * 

REM 

REM 

* * 

** 

22/7/83 

** 

* * 

REM ************************** 
DIMLTR(20,7) 

** 


A 1$="ENERGY FIELDS":S=54£7£:V=53248: 


SC$="000":LI$ ="5":MO=1. 1 

107 PO*="80":P0KE56334,PEEK(56334)AND£54 
103 POKE1,PEEK <1 )AND251 
110 F0RC1=1T0LEN(A1$> 

115 FORT=0TC7 

1E0 LTRCC1,T)=PEEK<<ASC(MID$<A1$,C1,1>)- 
64 > *8 +53248 +T) 

130 NEXTT,C1 

132 POKE1,PEEK <1>0R4 

134 P0KE56334,PEEK<56334>OR1 

136 GOSUB2000 

200 REM * POS ITION SPRITE * 

£01 FORT=0TO63:POKE83£+T,0:NEXTT 

£02 X=104 :Y=£55: REM *** IMITIAL POSITION 


*** 


203 SP4> = UlUiillil 

204 SQ$="feUBm|" 
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205 FORTT =1TO13 
210 FORT=0TO7 

220 P0KE832+<T*3>,LTR(TT,T): REM *** SPRI 
TE SHAPE DATA *** 

230 NEXTT 

235 POKEV,X:POKEV+l , Y 

240 POKE2040,13 : REM SPRITE 0 

250 POKEV+2 1 ,PEEK<V+2 1 >OR 1 :P0KEV+39,5 

280 FORY=2T066STEP4 

290 POKEV/X :POKEV + 1 , Y 

295 REM IFY=24THENGOSUB400 

296 NEXTY:GOSUB400:Y=24:X=X+8:NEXTTT 

297 GETQQ$:IFQQ$=""THEN297 

298 GOSUB600:GOSUB900:GOTO730 

300 REM ****** FIRE ENERGY FIELDS ****** 

301 POKE2044,64 :POKE2043,64 :POKE2045,64 : 
POKE2046,64 :V=53248 

302 POKEV+21 ,PEEK < V +21)OR 120 :POKEV+28,PE 
EK < V +28 ) OR 120 

303 X1=X2 s Y1= Y2 

304 POKEV+6,XX:POKEV+7,YY 

305 POKEV+8,XX+X1 :POKEV+9,YY+Y1 

310 POKEV+10,XX+2*X1:POKEV+11,YY+2*Y1 
315 POKEV +18,XX + 3*X1:POKEV+13,YY + 3*Y1 
320 POKEV+42,X/2:POKEV+43,X/2:POKEV+44,X 
/2 :POKEV+45,X/2 

325 POKEV+ 38,X1+Y1 :POKEV+37,X1+Y1+7 
328 POKES+4,33 :FORTT*1T03:F0RT*25T075: PO 
KES+1,T:NEXTT,TT:POKES+4,0 

330 POKE16320+3*<X1+Y1),INT<RND <1>*256) 

331 POKE16321+3*(Xl+Yl>,INT < RND(1>*256) 

332 POKE16322+3* <X1+Y1>,INT<RND <1>*256) 
335 GOSUB930 

340 POKEV + 30,0 

345 IFCH = KTHENSC =SC +20 :GOSUB380 * GOSUB110 
0 s GOTO900 
350 LI-LI-1 

355 POKES+4,33 : FORT*1TO50 

357 POKE2040,T:POKEV+39,T:POKES + 1,20 « POK 
ES + 1 ,40 s POKES + 1,60 * POKES +1,80 
360 NEXTTiPOKES + 4,0 :POKE2040,13:P0KEV+39 
,5:GOSUB1100«0OTO900 

380 POKES + 4,17 J POKES +1 1 ,33 :FORTT*1T05:FO 
RT=1T0255STEP16 
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385 POKES+8 , <256-T> :F'OKES + 1 ,T 

390 NEXTT ,TT:POKES + 4,0:POKES+11,0 : RETURN 

400 PR INT " «ffifgl " ; SP;fc: : SP$=SP$+ "H" 

402 PRINTMIDS(A1$,TT, 1> ; :P0KEV+21 ,PEEK<V 
+21> AND0: RETURN 

4 10 PR INT H MMMMMtH ” ’ SQ<£ ; :SQ$=SQ*+"U" 
412 PRINTMID$<A1$,TT,1); :POKEV+21,PEEK <V 
+ 21 >AND253: RETURN 
500 REM *** SOUND *** 

502 S=54272 : FORT = 0TO23 : POKES + T,0 
505 POKES +24,15 

50? POKES+5,63:POKES+6,200:POKES+19 ,12:P 
OKES+20,240 

510 POKES+4,96 :POKES+1,20 

515 POKES+18,65:POKES+ 12,63:POKES+ 13,200 

525 RETURN 

600 P0KE53281 ,11 :POKE53280,11 :PRINT"a" ; 

601 PRINT " MA 

■ Il • 

_ r 

602 PRINT"LUBCORE "TAB<16-LEN<SC*>>S 

C*" FUEL "TAB<22-LENCPG$> >PO$; 

303 PRINT"a LIVES "TAB<35-LEN<LI*>> 

L I $ " 

604 PRINT" aww y _ 

606 PRINT" 


608 PRINT" 


ya ^ ar ma 


610 F'RINT" 


620 PRINT" 

3T4 WF\ 



625 PRINT" | ^3 Ma 

sr y ^ i " 

630 print" | y rntn ' 

635 PRINT" | na 

mi I 

640 PRINT" | 0*3 

mi i 

645 PRINT" | na 

mi i 

650 PRINT" I na 

WSd I 

655 PRINT" I na 
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l 

660 PRINT" | 

■a i 

665 PRINT" | 

I 

670 PRINT" | i 

‘àtw i n 

675 PRINT" | 

\i y ^ I 

680 print" mr" 

TJa 11 

685 REM PRINT" 

690 REM PRINT" 

695 PRINT" 

700 PRINT" 

705 PRINT" 

710 PRINT" a 
720 RETURN 
730 RESTORE 
732 FORUI = 0TO 191 : READQQ : P0KE832 +W, QQ : NEXT 
Ul: POKE2040,13:POKE£046,14 :POKE2047,14 
735 X =200 :Y = 96: V = 53248 :SC=0 :LI=5 : PO=100 
740 POKE2040,13 s POKEV +21,PEEK<V+21>OR 1 :G 
OSUB500 

750 REM **** SPRITE MOVEMENT **** 

752 POKES+14,255-Y:PGKES+15,3:POKES+16,Y 
755 AA$= " " 

760 GETAA$: IFAA$= "II"ANDY<232THENY = Y + 4 : X = 
X +8 

765 IFAA$="H" ANDY>48THENY=Y-4:X=X+8 

766 IFX= >254THENX=0:MSB=1 : POKEV+16,PEEK< 
V+16J0R1 

767 IFX >90ANDMSB=1THENX = 0:MSB = 0:POKEV+16 
,PEEK < V + 16 >AND254 

768 A$=»":GETA$:IFAA$=" "THENG05UB1000 

770 POKEV ,X!POKEV+l ,Y 

775 POKEV+42,X/£:POKEV+43, X/2:POKEV+44,X 

/2 s POKEV +45,X/2 

780 GOSUB930 J GOTO750 

899 RETURN 

900 REM ***** SET-UP INT IIAL ENEMY POSIT 
ION AND DIRECTION **** 

905 POKEV + 27,PEEK<V+27)GR 128 :POKE2047,1 
4:POKEV+21,PEEK<V+21>OR 128 
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307 POKEV +46,8 :MO = MO + 0.05 

310 CH=INT (RND <1>*4> + 1 : E = 144 :F=136 

320 DE =MO * < CH =1 ) -MO * (CH =2 > 

325 DF =MO * < CH =3 >-MO * < CH =4) 

327 POKE138,0:RETURN 

330 E=E+DE:F =F +DF:POKEV+14,E:POKEV+15,F 
335 IFE<70ORE>190ORF<110ORF >170THENPOKE2 
047,15 

940 IFE < 450RE>240ORF < 740RF >210THENLI=LI - 
1 :GOSUB1100 :GOSUB960:GOTO900 
950 RETURN 

960 REM **ENEMY ESCAPES SOUND*** 

961 S=54272 

962 POKES+4, 33 :FORT=1TO10 

964 POKES+1,100:GOSUB980:POKES +1,70:GOSU 
B980:POKES +1,50:GOSUB380 

963 NEXTT:POKES+4,0 

980 FORDL=1TO50:NEXT:RETURN 

1000 REM *** LAY ENERGY SHIELD *** 

1005 X2 =0 :Y2 =0 : IFMSB=1THEN1020 

1010 IF <X >25ANDX <45>AND< Y >82AN0Y<168)THE 

NY2 =21 :K = 1 : XX=48 :YY =106 :GOTO300 

1020 IF <X >220ANDX<240 >AND <Y>82ANDY<168)T 

HENY2 = 21 :K=2: XX=240 :YY=106 :GOTO300 

1030 IF <X>52ANDX <150)AND <Y>54ANDY<84>THE 

NX2=21 :K =3 : XX =112 :YY=76:GOTO300 

1040 IF <X >52ANDX<150)AND(Y>186ANDY<216 >T 

HENX2 = 21 :K =4 :XX=112 :YY=204:GOTO300 

1050 PO = PO-5 

1100 PO$=STR$<PO):LIS=STR^(LI):SC$=STR$< 
SC) 

1105 IFPO = <0ORL1= < 0THENGOTO3000 
1110 GOTO601 

1199 P0=P0-5:GOSUB601 : RETURN 
2000 REM *** INSTUCTIONS *** 

2010 PRINT”J" ; :PRINT"HSS" 

2020 FRI NT"-- 

2030 FRI NT"H GUARD THE TUBE SYSTEM WITH 
YOUR CRAFT" 

2040 PRINT" BY SETTING UP ENERGY FIELDS 
AT THE 4" 

2050 PRINT" OPEN ENDS OF THE SYSTEM. ATT 
EMPTING" 

2060 PRINT" TO PLACE A FIELD AT ANY PLAC 
E OTHER " 
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£070 PRINT " THAN THE END WILL RESULT IN 
POWER" 

£080 PRINT " LOSS. SETTING ONE UP AT A T 
UBE NOT " - 

£090 PRINT" CONTAI NINO AN ENEMY WILL RE 
SULT IN " 

£100 PRINT" YOUR DESTRUCTION. 

£ 1£0 PRINT"a CONTROL YOUR CRAFT BY:-" :PR 
aCURSOR UP ■ = UP 

£130 PRINT" UCURSOR LEFT ■ = DOWN 

£150 PRINT" aSPACES = FIRE 

£160 PRINT"S WHEN ALL OF YOUR FUEL IS US 
ED OR ALL" 

£170 PRINT" YOUR LIVES ARE LOST THE GAME 
IS OVER." 

££00 PRINT"BH PRESS ANY KEY TO START T 

HE GANE" 

£300 RETURN 
£999 G0T0£99S 

3000 REM **** END OF GAht **** 

3005 P0KE53£69,0 :POKE198,0 
3010 P0KE53£65,PEEK <53£65>0R64 
30£0 PRINT"J": FORT =1TO500:NEXT:T=0 

3038 PR I NT " e*nxiw»w wiì^iijp«| » 

3040 PRINT" a ■ 

n 

3045 PRINT" 3 m 


3050 PRINT" 

II 


a GAME OVER ■ 


3055 PRINT" 


3060 PRINT" 3 ■ 

II 

3070 pr iNT"aassaaa press any key to p 

LAY AGAIN" 

3075 P0KE53£83,T 

3080 GETBB$: IFB6*=""THENT = -< T+1>*<T<£56> 

:GOTO3030 

3090 P0KE53£65,PEEK(53£65)AND 191 :P0KE53£ 
83,£4£ 

309£ SC=0:SC*="00":PO=100:PO*=■100":LI=5 
:LI$=“5" 

3095 GOSUB600:GOTO730 
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£0000 REM SPRITES’ DATA **********SHIP** 
********* 

£0010 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,££4,0,0 

£00£0 DATA£48,0,0,124,0,108,63,£33,£16,6 
1 ,££1 , £55,63,£55, £5£, 1£4,0,1£0,1£0,0,3£ 
£0030 DATA££4,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 

£0100 REM ************* ENEMY 1 ******** 

****** 

£0110 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

0 , 0 , 0 , 0 , 0,0 

£01£0 DATA0,0,0,0,60,0,0,189,0,0,£19,0,0 
,1£6,0,0,60,0,0,60,0 

£0130 DATA0,10£,0,0,195,0,0,195,0,0,60,0 

,0,£4,0,0,0,0,0,0,0,0 

£0£00 REM *** SPRITE ENEMY £ *** 

£0£0£ DATA 6, 3, 0, £, £, 0, 1, 4, 0, 1, 

4 , 0 


£0£03 DATA 49, 140, 96, 1£7, £55, £40, £ 

54, 113, £48, 140, 113, 136 


30304 

DATA 

140 

, 113, 136 

, 1£7, £55, 

240 

31, £55, 

19£ , 

£5, 15£, 

19£ 


£0305 

DATA 

25, 

1 5£, 193, 

24, 0, 192 

, £5 

140 , 

1 93 , 

15, 

£55, 1£8 



£0306 

DATA 

7, 

143, 0, 1, 

140, 0, 1, 

140 

0, 49 

l, 140, 96 



£0307 

DATA 

63 , 

143, 3£4, 

0 



£0£10 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0 , 0,0 


£0££0 DATA0,0,0,0,60,0,0,189,0,0,£19,0,0 
, 1£6,0,0,60,0,0,60,0 

£0£30 DATA0,10£,0,0,195,0,0,195,0,0,60,0 
,0,34,0,0,0,0,0,0,0,0 
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Siamo a Londra e il proprietario di una piccola azienda commerciale 
deve distribuire le paghe ai propri commessi. Quanti biglietti da una 
sterlina e quante monete e di che tipo gli occorreranno per preparare 
le buste da distribuire? Bene, questo programma può risolvergli tutti i 
problemi. È infatti assolutamente affidabile e funziona con qualsiasi 
somma di denaro, dalle migliaia di sterline fino alle piccole somme e 
può quindi essere usato anche per stabilire i premi di una tombola di 
fine anno. 


0 REM PAYPACKETS.WALWYN 

5 GOSUB70e0 

10 REM C$<X>=NAME OF CURRENCY 
12 REM CV<X>=CURRENCY VALUE IN POUNOS 
14 REM CA<X>=AMOUNT OF UNITS REQUIRED OF 
THIS CURRENCY 

16 REM CB <X)=TOTAL AMOUNT OF UNITS REQUI 

RED OF THIS CURRENCY 

18 DIM C*<10>,CV<10),CA<10),CB<10) 

20 FORJ=ITO 10 :READC$<J),CV<J>:NEXTJ 
25 DATA ONE PENCE ,0.01 ,TUJO PENCE,0.02 
30 DATA FIVE PENCE,0.05, TEN PENCE,0.1,TW 
ENTY PENCE,0.2 

40 DATA FIFTY PENCE,0.5,ONE POUND,l,FIVE 
POUND,5 

50 DATA TEN POUND,10,TWENTY FOUND,20 
60 SR =0 

100 POKEUG,UF:POKEUB,U2:PRINTU9$; "J" 

150 GOSUB500 
155 PRINTU9*; 

160 PR INT 11 aSHLFRESS ' t 1 TO INPUT A NEUJ 
PAYMENT " ; 

162 PR I NT " SI 

II ■ 

r 

165 PRINT'^RESS ' £ 1 TO Gl VE THE TOTAL 

AMOUNT "; 

167 PRINT "A 

n • 

r 

170 PRINT"^RESS 1 CLR/HOME ' TO CANCEL AL 
L DATA 
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£00 REM GET AN INSTRUCTION KEY 

205 XX =0 :SR = 1 

£10 GETA$:IFA$ =""THEN210 

££0 IFA$ = 11 1 "THEN300 

230 IFA^="a-THENRUN 

240 IFA$ ="£"THEN400 

250 G0T0210 

300 PRINTU7$;"a n ; 

310 INPUT"CASH AMOUNT IN PACKET"; A$ 
320 A=VAL<A*):A1=A 

330 INPUT " NUMBER OF PACKETS •• ; B* 

340 B =VAL < B$ >:B1=B 

350 GOSUB8O0 

360 PR INT"iJ" : GOTO 150 

400 REM TOTAL FIGURE 

410 XX = 1 

420 PR INT" J» : GOTO 150 
500 REM F'RINT OUT TABLE 
505 AT=0:PRINTU4*; 

5 10 PRINT"aHHHfflSHH- 


520 PRINTUR*; 

525 PRINT"CURRENCY";TAB<15)"NO. OF UNITS 
";TAB <33 >"AMOUNT" 

530 PRINT 

535 F0RJ=1T011:PRINTU7$; 

536 IFJ< >11THEN540 

537 PRINTTAB<30 >U9$; "_» 

538 PRINTTAB<23)"TOTAL; 

539 A$=STR$<AT>:GOTO580 

540 A$ = C$< J ) + ".. 

545 PR INTLEFT3X A* ,2 1 > ; " ■ WIBMIHI" • 

550 C=LEN<STR$<INT<CA<J>>>) 

551 IFXX=1THENC=LEN<STR*<INT<CB<J)))) 

559 IFXX =1THENPRINTU3$;TAB<££-C)CB<J); :G 
0T0571 

560 PRINTU3$;TAB<£2-C>CA<J>; 

570 A$=STR$<CA<J>*CV<J)) 

571 IFXX=1THENA*=STR$<CB <J)*CV <J )) 

574 IFXX =1THENAT^AT+CB < J > *CV <J):GOTO530 

575 AT=AT+CA <J)*CV < J) 

580 AA$=" " : N~0 : FORK = 1 TOLEN < A$ > 

590 B$ = MID$< A$,K 1 > 

600 ^6*=" " THEN650 
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610 AA$=ftA$+B$ 

615 IFB$ =". "ANDVAL <AA$><1THENAA$="0”+ AA* 
6£0 IFB$=“."THENN=1 
650 NEXTK 

660 IFN=0THENAA$=AA$+ " . 00 " : GOTO700 

670 A=LEN< AA$) : IFMI 0$ < AA$, A - 1 , 1 > = " • "THEN 

AA$=AA*+ "0" 

690 REM STRING COMPLETE 
700 PRINTU9$; 

710 A =LEN< AA$) 

7£0 PRINTTAB<39-A>AA* 

730 NEXTJ 

740 IFSR =0THEN750 

741 IFXX=1THENPRINTU5$;TABC14)"atìTHIS IS 
THE RUNN1NG TOTALa"5GOTO750 

74£ IFXX=0THEMPRINT"BH" UE$;B1"Il X £"A1; 
743 PRINTUE$;TAB<£0>"THIS IS A SUB-TOTAL 

a n 

750 RETURN 

800 REM CALCULATE CA<X> 

810 X=0:A=INT<A*100.000001):FORJ=10TO1ST 
EP-1 

8£0 CA<J>=0:IFX=1THEN850 
830 IF<A-CV<J>* 100)<0THEN850 

835 A = INT(A- INT < CV < J)* 100.000001> >: IFA=0 
THENX =1 

836 REM PREVI0U3 LINE PREVENTS DEC IMAL P 
LACE OVERFLOU ERROR 

840 CA<J)=CA<J>+1:IFX=0THEN830 
850 NEXTJ 

860 FORJ =1TO10 :CA < J)=CA(J)*B:NEXT 
870 FORJ = ITO 10 :CB <J)=CB <J)+CA(J >:NEXTJ 
880 RETURN 

7000 REM ***************************** 
700£ REM COLOUR CODES FOR COMMODORE 64. 
7005 REM CONLY USE THESE COLOURS) 

70 10 U0 = 0:U0$=: REM BLACK 
70£0 U1 = 1 !U1 $ ="a” ! REM UHITE 
7030 U£=£:U£^="3‘ I : REM DARK RED 
7040 U3=5 s U3$= "II" ! REM GREEN 
7050 U4 =6 s U4$ = "3" : REM DARK BLUE 

7060 ..REM ORANGE 

7070 U6=3^U6$="■8 ,, : REM BROUN 
7080 U7 =10!U7$="O"! REM PINK 
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7030 U8 = 13:U8*=: REM LIGHT GREEN 
7100 U9=14:U9$= " JJ" : REM LIGHT BLUE 
7110 UU=4 : UU*= : REM PURPLE 
7120 UR=12 :UR$="y: REM LIGHT GREY 
7130 UE=7:UE*="H": REM LIGHT YELLOU 
7140 UF=11:UF$ = "H" :REM DftRK GREY 
7150 UG=53281 :UB=53280 
7200 RETURN 
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La diga 

La diga è un gioco in cui dovete difendere una diga sottoposta all'at¬ 
tacco di un aereo nemico, armato di bombe a rimbalzo. Ogni bomba 
che colpisce la diga ne fa saltare una parte e il gioco continua finché 
l'acqua non esce dalla barriera completamente distrutta. 

La difesa della diga è affidata a due cannoni laser, montati sui due lati 
della sua barriera, i cui raggi convergono in un punto controllato dal 
giocatore. Poiché l’aereo è fuori dal raggio di azione, è necessario col¬ 
pire le bombe spostando il punto di convergenza dei raggi in alto e in 
basso e di lato e usando poi il tasto zero per colpire. Sfortunatamente 
le armi devono essere ricaricate dopo ogni tre tiri e quindi la precisio¬ 
ne è indispensabile, specialmente perché, a peggiorare la vostra situa¬ 
zione, soffia un forte vento che tende a farvi deviare il tiro. 


0 REM BY PAUL STANLEY AND DAVID BUCK 

1 POKE 53280,6«POKE 53281 ,6 :PRINT"J" ; CHR 
$C8);CHR$<129); 

2 POKE 52,48:POKE 56,48:CLR 

3 LET HS =0 

4 GOSUB 8000 
10 GOSUB 1000 

15 PR INT"a«SC:ORE : 0'* 

17 PRINT" ; TAB C 20)"HI-SCORE : ";HS; "" 

**** ************ *.*#*****#****>"; 


25 PRINT": 


70 LET D =1 
72 LET S=0 
80 LET A =1 
85 LET P = 16 
80 LET Y=S 

9 1 LET X=INTERNO CTI)*20)+6 

32 FOR F = 1 TO 5 STEP 2 : PR I NT " aaSBEM" : TAB 
ex)"a";MID*<BS,F,1);MID$CB$,F+ 1,1):DU = . 1 
93 H I =2 : LO =204 : GOSUB2000 : PRINT 11 '> T 
AB CX); " "!NEXT F 
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34 FOR F = 1 TO 4 :PRINTLEFT*<D*,6-F> ; TAB<X 

xmid*<b*,5,i>;mid*<b*,6,i>; 

95 PRINT LEFT*<D*,F+6>;TAB<X>:GOSUB20 
00 

96 PR INTLEFT*<D*,6-F ) ; TAB (X ) ; 11 ";LEFT*< 

D*,6+F ) ; TAB <X ) ; " " :NEXT F 

38 LET F=INTCRND<TI)*32)+3:LET G=4+INT<R 
NDfTI) * 1 4 ) 

100 LET A* = " C£ ] t«- ! " : LET HT=10 

120 PRINT LEFT*<D*,Y+1 >;TAB<X>;MID*<A*,A 

, 1 > 

121 IN* ="":GET IN* 

122 LET F=F-<IN*="S" AND F<36)+<IN*="A" 
AND F >2) 

123 LET G = G-< IN*= "Z " AND G< 18 ) + < IN*= "LI" 
AND G >3) 

125 PRINTLEFT*(D*,G + 1)}TAB <F >" + " 

126 LET LL=LL +LEAK 

127 IF LL >1000 THEN 400 

128 IF IN*=" " AND S<3 THEN GOSUB 200 

130 DU=.03 :HI=Y:LO=128 :GOSUB 2000 

140 PRINTLEFT*<D* r Y+1);TAB<X)" ": REM;MID 

*(A*,A,1) 

145 PRINTLEFT*<D*,G+1);TAB<F)" " 

150 LET Y=Y+D 

155 IF RND <TI)>.6 THEN LET F=F+INT<RND<T 
I)* 1.5)-INT(RND < TI)* 1.5) 

157 IF RNDCTIX.4 THEN LET G=G+INT<RND<T 
I)*1.5 AND G < 15 ) - I NT < RND (TDtl.S) 

160 IF Y=HT THEN LET P=P+l:LET D=1 :LET A 
=A + 1 

170 IF Y=P THEN DU=. 15sHI=2 : LO=204 :GOSUB 
2000 !LET A=A + 1 :LET D = -l:LET HT=HT-3 
180 IF A = 7 THEN 350 
190 GOTO 120 

200 PRINTLEFT*<D*,G);TAB<F-1>; "<U; " 

201 PRINTLEFT*<D*,G+1 > ; TAB (F ) ; 11 #” 

202 PR INTLEFT$< D*,G +2 ) ; TAB <F - 1 ) ; 11 ; ||< " 

205 LET S=S+1 

210 PRINTLEFT*(D*,G);TAB(F-1)J" 

211 PRINTLEFT*<D*,G+ 1)J TAB <F > ; " " 

212 PRINTLEFT*<D* / G+2);TAB<F-1) ; " " 

215 IF G=Y AND X=F THEN 300 

220 RETURN 
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300 LET SC = SC + 10 : PR I NT " 9UUI1" ; SC : PR I NT 
LEFT*<D$,G+1>;TAB<F) i "-" 

301 DU=.08:HI=4:LO=£51:GOSUB 2000 

302 HI=4:L0=112:GOSUB £000 

303 HI=5 s LO =152 !GOSUB £000 

304 HI=4 : LO =112!GGSUB £000 

305 PRINTLEFT$<D*,G+1);TAB<F>;.GOTO 7 

0 

350 FORA=1T05:DU=.001 :HI=£8 : LO=49 :G0SUB2 
000 :HI=89 s LO =13 1 : IFPEEK <1824+X>=32THEN37 
0 

360 PRINTLEFT$<D$,£1>;TAB(X)" ":GOTO 70 
370 IF PEEK<13S4+X><>58THEN 390 
375 LET LEAK =LEAK + 1 

380 PRINTLEFT$<,21);TAB( X ) “ ";LEFT$(D$ 
,£2);TAB<X>”,":GOTO 70 

390 LET LEAK =LEAK +2 

391 FCROX=£0TO£1 :PRINTLEFTS<D*,QX )l TAB<X 
- 1 ) " " ; : NEXT: PR INTLEFT$<DS,22 )TAB<X- 1 > " , 
,,":GOTO70 

400 PRINTLEFT$<D$,11>;TAB<9>;GAME 

over -ani" 

401 PR 1NTLEFT$<0$, 14 ) ,* " PRESS ANY 

K.EY TO PLAY AGAIN" 

402 DU =.03 s FOR F = 1 TO 50 :HI=20+F: LO = HI :G 
OSUB 2000:NEXT F 

405 IF SC >HS THEN LET S=3C 

410 GET P$:IF Q$<>"“ THEN 410 

411 GET Q$: IF Q* = a 11 THEN 411 

4 15 PRINT’ J '; :GOSUB 1190:GOTO 11 
399 PRINT"ERROR": END 

100O POKE 56334 ,PEEK (56334 )AN0£54 

5 0*0 POKE 1 ,PEEK < 1 )AND 251 

1020 FOR 1=0 TO 511 :POKE I + 12288,PEEK<I + 
53248):NEXT 

1030 FOR J =0 TO 16 : READ A :FOR I=A TO A + 7 

: READ B:POKE I + 12283,B:NEXT I,J 

1050 POKE 1, PEEK <1 ?OR4 

1060 POKE 56334,PEEK<56334>OR1 

1065 POKE 53272,28 

1070 DATA £16,0,0,0,16,0,0,0,0 

1080 DATA £24,0,0,0,24,24,0,0,0 

1090 DATA 232,0,0,0,56,56,0,0,0 

1100 DATA £40,0,0,0,60,60,60,0,0 
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8110 PRINT "LANCASTERS,S0 YOU MUST JUST 
SHOOT AT THE"; 

81£0 PRINT "BOMBS INSTEAD.YOU CAN MOVE Y 
OUR CROSS-" 

8130 PRINT "HAIR SIGHTS U1ITH THE KEYS Ul, 

A S & 2 11 

8131 PRINT "U1=UP s A=LEFT: S=R IGHT: 2 =DOWN" 

8 140 PRINT "SI &RESS ANY KEY TO CO 

NTINUE" 

8150 GET AS*. IF ASK > " " THEN 8 150 

8160 GET A$:IF A$="“ THEN 8160 

SI70 PRINT " MiKmiIiTtfHHWE VEN ADJUSTING TH 

E SIGHTS IS DIFFICULT" 

8180 PRINT “BECAUSE THERE IS A STRONG WI 
rei UIHICH" 

8190 PRINT "CAUSES YOUR SIGHTS TO MOVE A 
BOUT." 

8200 PRINT "FIRE YOUR BEAM WITH THE a<-P 
ACE >■ BAR. " 

8210 PRINT "SEECAUSE OF THE POWER OF YOU 
R WEAPON, " 

3820 PRINT "IT IS DRAINED AFTER ONLY THR 
EE SHOTS AND"; 

8230 PRINT "UIILL ONLY BE READY BY THE NE 
XT TIME AN" 

8240 PRINT "AEROPLANE ATTACKS.YOUR BATTL 
E IS OVER" 

8250 PRINT "WHEN TOO MUCH WATER HAS POUR 
ED THROUGH" 

8260 PRINT "THE BROKEN DAM." 

8270 PRINT "■ &RESS ANY KEY TO 

START" 

8280 GET A*«IF AS<>"" THEN 8280 
8290 GET A*sIF A*«"' THEN 8290 

8300 PRINT"J"; 

8310 S =54272 

8320 FOR XX =S TO S + 24:P0KE XX,0:NEXT XX 
8330 POKE S +5,9 :POKE S+6,0:POKE S + 24,15 
8340 RETURN 
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Biblioteca di software 

55 programmi per il 

COMMODORE 64 

Quattro importanti scrittori di software 

hanno messo a disposizione il loro talento 

per far esprimere al meglio le potenzialità del vostro computer. 

Sia che siate giocatori o utilizzatori più seri, 
in questo libro troverete quanto fa per voi. 

Ce n’è infatti per tutti i gusti: 
giochi di abilità per chi sa correre sulla tastiera 
e destreggiarsi con i tasti funzione alla velocità del fulmine, 
giochi tattici per i più cervellotici, 

giochi d’ambientazione e di movimento, e tutti i giochi più comuni 
per intrattenere gli ospiti e saggiare la vostra abilità. 

E adesso tocca a voi: se seguirete le istruzioni, 
potrete disporre di quasi sessanta programmi collaudati 
al costo di una sola cassetta. 

Una rapida occhiata al libro vi farà immediafamenfe capire 
che la Terra ha un’orda di temibili nemici 
provenienti dallo spazio o dai meandri oscuri della mente umana: 
come sempre, l’unica arma di salvezza è nelle vostre mani. 

Perciò, dita sulla tastiera e... tornate vincitori! 
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